CSIC for 
Birdwatchers — 


How to learn BASIC in only 16 easy lessons 
(eight this month and eight next month), 
in the comfort and privacy of your own home. 


READY 
PRINT "HELLO" 
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Your Computer — May, 1986 


WHEN YOU buy your first home compu- 
ter, and take it home and unwrap it, plug 
everything together and switch on, the 
temptation is to load in the games that 
were Supplied and spend some time trying 
them out. But once the novelty wears out, 
youre set to start developing that record 
cataloguing system or household acc- 
ounting package — and that’s when the 
horror starts. 

How do you do it? Where do you start? 
That's what this series of articles is in- 
tended to teach, not just the rudiments of 
BASIC, although we'll cover that to start 
with, but how to program; how to design 
programs and how to build them. 

We're going to start off with the very 
basics (if youll pardon the pun) — with 
BASIC itself. 


Not Just for Beginners 

In the sixties when Kemeny and Kurz 
were developing a new computer lang- 
uage for teaching at Dartmouth College, 
neither of them realised it would become 
the most widely-used language in the 
world. The deviously acronymically 
named Beginners All-purpose Symbolic 
Instruction Code has now left behind its 
humble origins, and become the world’s 
most popular computer language. 

But BASIC is no longer the simple lang- 
uage its originators conceived — it’s 
grown teeth, sharp ones. Recent micro- 
computer BASICs — notably Microsoft 
(used in the TRS-80, System 80, Apple, 
PET and other computers) — have a wide 
range of extensions which make them as 
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lf you've never used a computer be- 
fore, and if you’re unsure where to 
start, Les Bell can teach you the 
BASICs of programming in_ this 
series. First published in Your Com- 
puter in instalments from the Sep- 
tember/October 1981 issue to the 
April 1983 issue, the series has been 
on constant back-order ever since. 
So here it is in full — and as relevant 


as ever. 


PART I 


your computer 


tutorial 


powerful as earlier ‘big system languages 
such as Algol or FORTRAN. 

The big thing BASIC has going for it is 
that everybody has it on their system. Vir- 
tually every personal computer sold these 
days has BASIC built into the machine. 
Just plug it in, and you're programming 
Straight away. When | first started working 
with microcomputers, BASIC was rumou- 
red to soon be announced for the 8080, 
but many people maintained it was impos- 
sible to run it on a microprocessor! 


What is Basic? 

Two things really: 

@ it is a language you use to write prog- 
rams for your microcomputer, and 

@ itis a program used to enable the micro- 
processor to make sense of your 

BASIC program. 

Let’ start with a quick look at the prog- 
ram itself first of all: then the features of 
the language make better sense. 

The program which accepts your 
BASIC input and follows its instructions Is 
called the BASIC interpreter. It examines 


your program line by line, and does what 
the program says. In fact, the BASIC in- 
terpreter doesn't need a program in order 
to be able to do something useful. For 
example (if you have access to a compu- 
ter try this), type in PRINT “HELLO” and 
the screen should look something like 
this: 
READY 
PRINT “HELLO” 
HELLO 
READY 

The computer executed your command 
as soon as you typed carriage return (this 
is called ‘enter’ on some machines.) This 
command mode, as it is called, is useful 
for quick calculations. But if you were to 
type alone number at the beginning of the 
line, the computer wouldn't execute your 
command, but would instead store the line 
away as part of a program to be executed 
later. For example, type: 
10 PRINT “HELLO” 
20 END 

The computer should have done noth- 
Ing except accept your lines and store 
them. Now, type RUN, and the computer 
should type HELLO. Type RUN again, 
and the computer should type HELLO 
again. In fact, you can type RUN as many 
times as you like, and the computer will 
keep on typing HELLO. 

Of course, this is a trivial example, but it 
does illustrate the difference between 
command mode and execute mode. 


Background 
The example above will work on just 


about any computer, particularly the TRS- 
80 and similar personal computers. But 
there are different versions of BASIC, and 
so programs written in one dialect of the 
language will need to be translated or re- 
written to run on a computer with a diffe- 
rent version. 

The most common dialect in the micro- 
computer world is Microsoft BASIC (also 
known as MBASIC). This is the BASIC 
used in the TRS-80, the PET and other 
popular personal computers. But there 
are others, and it’s as well to know about 
them, in case you come across one which 
behaves in a strange manner. 

For example CBASIC is a compiler, 
rather than an interpreter like MBASIC. 
This means that there is no command 
mode, and you can only write programs. 
You do this by typing your program into a 
text file stored on floppy disk. Then by 
typing CBAS2 YOURPRO you instruct the 
CBASIC compiler to read through your 
program and create an intermediate file, 
which is what the computer will actually 
use as its instructions when the program 
is run. 

You then type CRUN2 YOURPROG 
and the CBASIC run-time package will 
load and execute the intermediate file. As 
you can see, it’s rather more complex than 
using a BASIC interpreter. 

There are also different BASIC inter- 
preters. Another popular one, for exam- 
ple, is NorthStar’s; it’s similar to MBASIC, 
but has some differences in string handl- 
ing which can sometimes throw the 
beginner. » 


There is a standard version called ANSI 
BASIC (American National Standards In- 
Stitution), but it really only covers the 
basics, if you'll excuse the pun. Almost 
every personal computer BASIC exceeds 
the standard, and that is where the incom- 
patibilities lie. For example, some BASICs 
have matrix arithmetic functions, and 
programs using these can be quite tricky 
to translate into a language that doesn't 
have them. : 


Some extensions can't really be said to 
be part of the language. A few computers 
have a TIME or TIMES function, for exam- 
ple, which reads the computer's internal 
clock. If your computer doesn’t have a 
clock and a similar function, you may find 
it difficult to translate a program to run on 
your computer. 


But the biggest area of difficulty is the 
different types of graphics used by diffe- 
rent computers. For example, the TRS-80 
uses SET and RESET statements to light 
up individual points on the screen, while 
the Apple has HLIN and VLIN statements 
which enable it to draw a line in one go. 
Translating Apple graphics programs to 
run on the TRS-80 is very difficult indeed, 
even disregarding the incompatibilities in 
their hardware. 


Because of these difficulties, you may 
find that some of the examples in this 
series will not run on your computer. How- 
ever, wherever possible, where differen- 
ces exist between different computers we 
will point them out. 


Getting Down to It 


If you’ve got a computer, a piece of 
paper and a pencil, that’s all you'll need to 
work through the examples we'll be giv- 
ing. You will find the journey enlightening 
and interesting. 


Computers are really just like glorified 
adding machines. You type in some in- 
formation, the computer crunches it 
around in various ways, and gives you 
back your answer, either through the 
printer or on the display. We'll generally 
use the display. 


The keyboard on your computer is simi- 
lar to an electric typewriter, but there area 
few new keys. 

At the right end, you should see a key 
(perhaps bigger than the others or col- 
oured differently) marked CARRIAGE 
RETURN or RETURN or CR. On some 
computers it’s called ENTER. This is the 
key you hit at the end of each line. It tells 
the computer that you've finished typing a 
line, and that you want it to take a look at 
what you've typed and do what you've 
asked. For example, when you want to run 
a program, it’s no use just typing RUN, 
because the computer will patiently wait in 
case you want to type something else as 
well. You've got to hit the RETURN key to 
make it do something. 

If you're typing in a program, then each 
line will start with a line number, and the 
computer will automatically put each line 
in memory, and keep the lines in numeri- 
cal order. That’s why we generally type in 
lines by tens: 10, 20, 30 and so on. This 
way, if we want to add a line between lines 
10 and 20, we just number it 15, and it will 
go in the right place. 

If you make a mistake while typing a 
program line, don’t worry about it — just 
hit RETURN and retype the line (with its 
line number, of course). 

The new version of the line will over- 
write the old one. If you want to delete a 
line, just type its line number and hit RE- 
TURN. That will get rid of it. 

Our first job is to get information in and 
out of the computer. After all, it’s easy to 
write programs that don't do any input or 
Output, but then you cant tell if they're 
doing anything! For example, type in this 
program 
10 GOTO 10 
and then type RUN followed by RETURN. 
What's your computer doing? Not much of 
anything useful, that’s for sure. To stop it, 
look for the BREAK key and press it. If 
there's no break key, then find the ‘control’ 
key, and hold it down while you press the 
C key. That should stop it. Make sure you 
know the standard way to stop a program 
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while it’s running — usually BREAK or 
control-C. 

Now let’s get on and do something 
useful. 

To get rid of that useless program, type 
‘NEW’ followed by RETURN. That tells 
the computer that you’re about to start 
typing in a new program. On some 
computers, the command is SCR or 
SCRATCH, to get rid of the old program. 

As we've seen, whenever you start a 
line with a number, the computer just 
stores that line away in sequences, ready 
for when you want to run a program..Lets 
write a simple program. Type this in: 

New 
10 PRINT “YOUR COMPUTER ”; 
20 GOTO 10 

Don't forget the semicolon at the end of 
line 10 or the space before the end of the 
quote marks — it’s very important. If you 
make a mistake, don’t worry — just retype 
the entire line. Later we'll see how to fix 
errors without wearing our fingers out. 

To take a look at your program, type 
LIST, and the computer will type it all out. 
It doesn’t matter in which order you typed 
the lines in, the computer will always list 
them out in numerical order. 

Before we analyse how it works, let’s 
see what the program does. Type RUN. 

And don't forget the all important car- 

riage return. 
Well, what did you get? It should look 
something like Fig. 1, allowing for the fact 
that your screen is probably of different 
dimensions from mine. If it’s still going, 
then stop it by hitting BREAK or control-C 
keys. 

How does it work? Look at line 10. It 
tells the computer to print everything after 


the word PRINT. Then there’s the words 
YOUR COMPUTER (and a space), but 
they're between quote marks. 

These tell the computer that everything 
between the quotes is a literal string. The 
computer prints strings exactly as is; so it 
prints YOUR COMPUTER . 

The next mark is the semicolon. The 
semicolon tells-the computer to hold its 
printing right there, so that the next thing it 
prints follows right on. If the semicolon 
wasn't there, the computer would move 
on to the next line before it started printing 
again. You might like to try the same prog- 
ram, but without the semicolon, just to 
prove it. 

On to line 20. This is pretty simple; it 
just tells the computer to go to line 10. It 
must be very boring sometimes, being a 
computer. 

By the way, you can stop and start a 
running program like this one quite easily. 
On my computer the control-S key will 
stop the review program, and the same 
key will restart it. 


So far, we've learnt that the PRINT 
statement makes the computer print 
things, that text between quotes is a literal 
string, and that the semicolon in a PRINT 
statement makes the ‘print head’ hold still. 
And we've been introduced to the GOTO 
statement. 


Here’s a revision of what you've learnt 
so far. 
Exercise 1. 


1. Make the computer print your name 
all over the screen. 

2. What will this program print? 
10 PRINT “HELLO WORLD! ”; 
20 GOTO 20 
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3 What will this program do? 
10 PRINT HELLO WORLD! ; 
20 GOTO 30 
The answers are at the end of the arti- 
cle. Let’s press on with something a bit 
more useful. 


Doing Arithmetic 

You can make your computer work out 
sums for you and give you the answers. 
Let's see how this works. This time, 
instead of writing programs, we'll use 
command mode, at least at first. Re- 
member, that means we don't type line 
numbers, so the computer does what we 
ask straight away. 

Try this: PRINT 2+2 

Obviously the answer is 4 

Now try this one: PRINT 6.5 — 3.2. Your 
computer should display 3.3. 

Incidentally, if you’re getting fed up with 
typing ‘PRINT’ again and again, some 
computers will accept the abbreviation ? 
instead. Others, notably North Star Basic 
accept ‘!’. So: 76.5 — 3.2 should give you 
the same answer. 

Notice that there’s no divide key on the 
keyboard? And the computer doesn't use 
x for multiply either. Instead, it uses the / 
(slash) symbol for division and the * (as- 
terisk) symbol for multiplication. 

Let’s go forth and multiply. Try: 

PRINT 4*5+6 

Notice that the computer starts reading 
the line at the left and finishes at the right, 
same as you and me. First it multiplied 4 
by 5, then it added the 6, giving 26. Now 
try PRINT 6 + 4*5 

What's this? We got the same answer! 
Shouldn't it be 6 + 4, that gives 10, times 5 
makes 50? Not this time! And this is the 
reason. 

Sure, the computer reads from left to 
right, but sometimes the order in which it 
does things is dictated by the rules of 
arithmetic. For example, as it reads from 
left to right, it will hold off doing additions 
and subtractions until it's done any multi- 
plications and divisions, unless there are 
brackets to force the issue. It doesn’t mat- 
ter which way round you write them, as 
we've just seen, multiplication and divi- 
sion have a higher priority than addition 
and subtraction, with brackets having the 
highest priority of all. Let’s see how this 
works: 

Calculation 
6°5+4*7 


Steps 
6*5=30 
4*7=28 
28+ 30=58 
5*4=20 
6+20=26 
26+7=33 


6+5°4+7 


(6+5)*(4+7) 6+5=11 
4+7=11 
11*11=121 

See how, in the absence of brackets, 
multiplication takes precedence over ad- 
dition. But with the brackets, the additions 
in the brackets are done first, and then the 
multiplication. This is called algebraic 
hierarchy. 

| call it flaming awkward at first, but 
you'll soon get used to it. It’s the way you 
would normally write down any algebraic 
formula on paper, which makes it easy to 
write great long formulae without any 
ambiguities. 


The PRINT statement will work with 
numbers, as well as strings. The compu- 
ter can add, subtract, multiply and divide, 
and it obeys a strict set of rules of priority 
between these operations. A quick test: 


1. PRINT (13 — 7)*6 

2. PRINT24+3*4 

3. PRINT 24 + (*(4—2)) 
4. PRINT “15 +7*3” 

5. PRINT 18/(3+6)*4 


Enough of this hard work. The answers 
are at the end of the article. But you 
shouldn't need them. 


More Printing and Calculating 


Let’s set about incorporating what 
we've done so far into a program. We'll 
work out the circumference of a circle and 
its area, and print them, with appropriate 
labelling. We'll assume the radius of the 
circle is 5cm. Remember the formula for 
the circumference of a circle is 

c=2*pi*r 
and the formula for the area is 
a=pi*r*r 
so our program looks like this: 
NEW 
10 PRINT “ THE CIRCUMFERENCE 
IS“; 2* 3.14159 *5 
20 PRINT “ THE AREA IS”; 3.14159 * 5 
Wes 
30 END 

Both the first two lines print the string 
first, followed by the answer to the calcula- 
tion. Line 30 just marks the end; on most 
computers it’s not needed, and you can 
leave it out if you prefer. 

RUN the program and let's see what we 
get. On my machine, | got: : 
RUN 
THE CIRCUMFERENCE IS 31.4159 
THE AREA IS 78.5398 
Ok 


Instead of ‘Ok’, you may have a prompt 
of some sort, but otherwise, you should 
have a pretty similar sort of result. Let's try 
another example. 

To convert Centigrade degrees into 


Fahrenheit, the formula is: F = 1.8* C + 
32 

To convert 37 degrees C to Fahrenheit, 
our program is really very simple: 
NEW 
10 PRINT “37 DEG. C = “;1.8 * 37 + 

32;“DEG.F” 

37 DEG. C = 98.6 DEG. F 
Ok 

Notice how you can mix strings in 
before and after the answer to the 
calculation. 


Variables 

Do you get the impression, somehow, 
that we're still not using the full power of 
the computer? You're right, and the things 
we need to really get going are variables. 


A variable is a location inside the com- 
puter’s memory where it can store values 
away and recall them when needed. 

Every variable has a name, and every 
time you use a new name, the computer 
sets away a bit of storage space for it. 


There are some rules about what you 
can call variables. Generally, in the 
‘standard’ BASIC, variable names are 
either a letter, or a letter followed by a 
single digit. So these would be okay to 
use: 

ABC ZA1 A7 AQ Z6 Q2 
while these would not: 
12A 45 NUMBER FRED FRODO 

There are several good reasons for this; 
firstly, to BASIC a number is just a 
number, unless it’s at the beginning of a 
line, in which case it’s a line number. 

While the BASIC interpreter might not 
throw out long names like ‘NUMBER,, it 
would just disregard the '—UMBER ’ part, 
and confuse it with the variable N you've 
used elsewhere. Likewise ‘FRED’ and 
‘FRODO’ would mean the same thing to 
many BASICs. 


Of course, there are exceptions that 
prove the rule; for example, Microsoft 
BASIC actually recognises two letters at 
the beginning of a variable name, and just 
disregards the rest. Other BASICs use the 
whole name up to 32 or more characters 
in length. You might like to experiment 
and investigate what your BASIC will 
accept and recognise. 


Let's rewrite our circle circumference 
and area calculator to use a variable: 


NEW 
10 R=5 
20 PRINT “THE CIRCUMFERENCE 


IS“ 2*3.14159*R 
30 PRINT “THE AREA IS”; 3.14159*R 
*R 
40 END 
Running this program should give the 
same result as before. But best of all, to 


redo the calculation for a circle of 10cm 
radius, you just retype line 10: 
10 R=10 
RUN 
THE CIRCUMFERENCE IS 62.8318 
THE AREA IS 314.159 
Ok 

Now try changing line 10 for other val- 
ues of R. Calculate the circumferences 
and areas of circles with radii of 2, 7, 4.638 
or 20.0001. Each time you change line 10, 
the computer can recalculate the figures 
you want. 

Another simple example. Let’s print a 


table of squares. 
NEW 
10 N=1 


20 PRINT N;“SQUARED IS”;N*N 
30 N=N+1 
40 GOTO20 

Run the program and see what you get. 
Remember, BREAK or control-C will stop 
it. 

By now, you should have a good idea of 
how the program works; the only line 
that’s a little hair-raising is line 30. When 
we write ‘N = N + 1’, we dont actually 
mean that N is equal to N + 1 or that 9 = 
10, or that 2 = 3 or whatever. What we are 
doing is reading the value stored in N, 
adding one to it, and then storing our ans- 
wer back into N again. We are assigning N 
that new value, which is why ‘=’ is often 
called the assignment operator. 

When you use the assignment opera- 
tor, bear in mind that you can only have 
one variable name on the left side of it. 
The computer can only store the answer 
to a calculation in one variable at a time. 

Now we know about the assignment 
operator, and what a variable is, and how 
to name variables. Another short test. 

Which of the following lines make 
sense: 
> 10PRINTN + 20 
25 PRINT 20N 
20N=N%*2 
20*N 
D=B*B-4*A*C 
GOTO 20+ 5*N 
A*B=D 
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Getting Some Input 

There's still a lot more we can do to 
make that circle calculations program a lot 
easier to use. The next big step is the 
INPUT statement. 

We already know how to output our 
results; that’s the job of the PRINT state- 
ment. But INPUT makes everything so 
much easier. Here’s version three of our 
circumference/area calculator: 

NEW 
10 INPUTR 


20 PRINT “THE CIRCUMFERENCE 
IS”’;2*3.14159*R 
30 PRINT “THE AREA IS 
3.14159*R*R 
40 END 
Try it out. The first thing the computer 
prints is a question mark. 
Now you type in the value of R (say, 5) 
and hit RETURN. 


25 
THE CIRCUMFERENCE IS 31.4159 
THE AREA IS 78.5398 


Now, every time you type RUN, the 
program will ask you for your input. Or is it 
the computer that’s asking for it? Let’s do 
the same improvement on our Centigrade 
to Fahrenheit converter. 


NEW . 

10 INPUTC 

20 PRINT C;“DEG. C =; 1.8%* C + 
32;“DEG. F” 

30 END 


Now try running this program a few 
times. It should follow the same pattern of 
stopping to ask you for input, waiting until 
you hit RETURN, and then printing your 
answer. 
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Notes 


Deluxe INPUT 

Leave the C to F converter program in 
memory, but retype line 10: 
10 INPUT “WHAT TEMPERATURE 
(C)";C 

Now run the program again. This 
time, it will ask you for what it 
wants! 


Answers to Exercises 


Exercise 1 
1. 10PRINT “your name”: 
20 GOTO 10 
| guess we're also forced to accept 
the command line 
PRINT “your name all over the screen” 
2. It prints HELLO WORLD! and then 
hangs up. 
3. The computer prints: 
0 
Undefined line number in 20 
Ok 
(or a similar message), because it 
thinks ‘HELLO WORLD! in line 10 is 
the name of a variable, and the target 
of the goto in line 30 doesn't exist. 


Exercise 2 
1. 36 
2. 26 
3. 30 
4. 15+7%*3 
5. 30 
6. 8 
Exercise 3 


1, 3 and 5 make sense. 2 is wrong 
because it contains an implied multi- 
plication, which won't work on most 
machines except some _ Hewlett- 
Packard desk-top computers and 
the Sharp pocket computer. 4 is just 
meaningless, as it doesn't tell the 
computer to do anything. In 6, most 
computers cannot goto the result of a 
computation (except the Sinclair 
ZX80 and a few others). In 7, there 
should only be one variable to the left 
of the equals sign. Note that although 
some machines can make sense of 
some of these, | still call them wrong, 
as they are not transportable code, 
and thus not good programming 
practice. i 


Deluxe INPUT (continued) 
WHENEVER the INPUT statement incl- 
udes a string of letters (in quotes) before a 
semicolon, it will output the string as a 
prompt to the user. This makes BASIC 
programs a lot friendlier, and a whole lot 
more useful. 

For example, our circle calculator prog- 
ram could be changed to ask for its input: 


10 INPUT "WHAT’S THE RADIUS"; R 

20 PRINT "THE CIRCUMFERENCE IS";2 % 
3.14159 & R 

30 PRINT "THE AREA IS"; 3. 141598RER 

40 END 

RUN 

WHAT’S THE RADIUS? 5 

THE CIRCUMFERENCE IS 31.4159 

THE AREA IS 78.5398 

Ok 


Notice that BASIC automatically sup- 
plies a question mark after the prompt. 


Stringing Along 

So far, we’ve been doing a lot of 
number-crunching. Although computers 
were originally designed for just that, 
they're good at other things, too — like 
handling text. 

Just as variables are memory locaticns, 
pigeon holes if you like which can hold 
numbers, so we can have variables that 
hold text. 


These are called string variables, and 
the text they hold is called a string. 

String variables are named in the same 
way as number variables, except they 


Part 1’s INPUT statements were 
easy — wait till you see the deluxe 
version. This ‘chapter’ puts a bit of 
life into your programming, with the 
code for a guessing game. 
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have a $ sign on the end. So A$, Z$, D9$ 
and FRED§ are all valid names for string 
variables. What’s more, they are comp- 
letely different from the numeric variables, 
A, Z, D9 and FRED. 

How are the strings used? As we’ve 
already seen, the computer will print literal 
strings — that is, strings of letters between 
double quotes (‘‘). So try this: 

NEW 
10 A$ = “HELLO THERE" 
20 PRINT A$ 
RUN 
Did you get this? You should have: 


HELLO THERE 
Ok 
The INPUT statement we've already 


learnt about will work with strings, too. For 
example: 


NEW 

10 INPUT "HELLO, WHAT’S YOUR NAME";NS 

20 PRINT "HI, "sN$:", NICE TO NEET 
yOu" 


30 INPUT "HOW OLD ARE YOU";A 

40 PRINT “JUST THINK, AT THE TURN OF 
THE CENTURY, ° 

50 PRINT "YOU'LL BE"sA+19: "YEARS OLD" 

60 PRINT "SO LONG, "3N$;", NICE 
CHATTING WITH YOU" 

70 END 


Try running this program. You can see 
how, by just adding more INPUT and 
PRINT statements, you could make a 
program that lets you have a conversation 
with the computer. | 


Decisions, Decisions. .. 

So far, the operation of our programs 
has been pretty predictable. It's been a 
steady progression from one line to the 
next. Let’s start putting a little bit of life, 
some unpredictability, into our programs, 
so different things happen at different 
times. We'll do that with the IF statement. 
And our first real program should be a 
game! 


NEW 

10 REM S3SGUESSING GAME VERS 1.1 
20 REM PROGRAMMED IN MBASIC 4.4 
30 REA 21/9/81 


40 N = INT(99 & RNDGL) + 1) 

30 PRINT "I°M THINKING OF A NUMBER 
BETWEEN 1 AND 100° 

50 PRINT "YOUVE GOT TO TRY TO GUESS 
IT* 

70 INPUT "WHAT'S YOUR GUESS*;6 

80 IF 6 > N THEN PRINT “TOO HIGH 

90 IF 6 < N THEN PRINT "TOO LOW" 


100 IF G6 = NW THEN PRINT “YOU'VE GOT 


110 60T0 70 
120 END 


There are quite a few new features of 
BASIC in this program. The first three 
lines are REMark statements. The com- 
puter will ignore them; they're simply there 
for the benefits of humans reading the 
program. They give the title and version 
number, the language used and the date. 

Line 40 contains two new functions. 
The INT(whatever) function takes the in- 
teger part of whatever. In other words, it 
chops off the part after the decimal point. 
So INT(1.37) equals 1, INT(27.294) 
equals 27, and INT(0.005) equals 0. 

The RND(1) part generates a random 
number. In other words, it lets the compu- 
ter ‘choose’ a number entirely at random. 
In fact, it's not really random — it only 
seems that way — and so, to be pedantic, 
it's a pseudo-random number. 

The RND function on your computer 
may be different. On mine, RND(1) gen- 
erates a random number between 0 and 
1, while RND(0O) repeats the last random 
number. On the TRS-80, things are diff- 
erent: RND(O) returns a value between 0 
and 1, while RND(X) returns an integer 
between 1 and X inclusive. It’s worth 
spending a little time experimenting on 
your computer to find out what its prefer- 
ence is. If it's like the TRS-80, then line 40 
can become 


40 N = RND(100) 


which is a bit easier to understand. Try 
working out the operation of the old ver- 
sion, though. 

Lines 50 and 60 print the instructions for 
the game, and line 70 asks the player for 
his guess. 


In line 80, we come across the IF state- 
ment. It simply says that if the player's 
guess is higher than the number, then 
print a suitable message. In line 90, if the 
player's guess is too low, another mes- 
sage is printed. Note that only one (or 
none) of these messages Can appear, as 
the guess can't both be too high and too 
low! 


In line 100, we check to see whether the 
player was right. This is an example of 
multiple statements appearing on one 
line. After the PRINT statement there's a 
colon, signifying that another statement 
will follow. If the IF at the beginning of the 
line is false, then execution will continue 
with the next line, not necessarily the next 


statement. Consequently, the GOTO 40 
will only be executed if the IF statement is 
true, in other words, if the player's guess is 
correct. 

Let's dig into the theory of the IF state- 
ment a bit deeper. Basically, its syntax is 
IF something (is true) THEN do whatever. 
For example: 


IF X = 0 THEN GOTO 720 


IF NS = "FRED" THEN PRINT “SHORT 
FOR FREDERICK, I PRESUME" 


IF A$ <> "Y" THEN END 


If the ‘do whatever’ part of the statement 
is a GOTO, then the word GOTO can be 
omitted: 


IF ¥ = 0 THEN 720 


If the ‘something’ part is false, then the 
program will go on to the next line, ignor- 
ing whatever follows the THEN part of the 
statement. 

The content of the ‘something’ part is 
what is called a relational operator. These 
are: 

> 15 greater than 
< is less than 
> 1s equal to 
<> 15 not equal to 
= 18 greater than or equal to 
{= 1s less than or equal to 
For example, the relationship 5 is less 


than 2 is obviously false. So is the relation 
5 is not less than or equal to 2. But 5 is 


greater than 2 is true, as is 5 is greater 


than and not equal to 2. Relational expre- 
Ssions can be quite complex. Try this one 
for size: 


Cea/ 2+ ¥ = bUV-2tT3/1 


Is it true or false, when X = 3, Y = 4and 
Z = 6? 

It's false. The left hand side calculates 
out at 11.5, while the right side is 23. 


Loopin’ de Loop 

We've already seen how, using the 
GOTO instruction, we can make a prog- 
ram go round and round in circles. But 
there's an even easier way to do it. Sup- 
pose we want to calculate a factorial. 

A factorial is a number multiplied by 
every integer smaller than itself, down to 
zero. For example, factorial 5 (written 5!) 
iS: 
S!=1x2x3x4x5 

Similarly, 10! is: 


( = 120) 


W'six2xvr3x 4x Sx bx Tu Px Y 


x10 ( = 3628800) 
Let's write a program to calculate this, 
using the GOTO statement. 
10 REN SSSFACTORIAL PROGRAMS $8 
20 REN WRITTEN IN MBASIC 4.4 
30 REM 21/9/81 


40 INPUT "NUMBER; N 

0X el: Fal 

60 IF X=" THEN PRINT 
"FACTORIAL" sN; "="sF: END 


7OX=X +1 
BOF =F EX 
90 GOTO 60 


This program works, but it’s not terribly 
elegant. It took two attempts to get it to run 
correctly (I forgot to set F = 1 first time 
around) and | still don't like it. 


BASIC provides a statement which is 
ideal for controlling loops. It's called the 
FOR...NEXT statement, and it’s really a 
pair of statements — one at the top of the 
loop and one at the end. Let's look at an 
example (and clean up the factorial prog- 
ram at the same time!): 


10 REM = SSFACTORIAL PROGRAM USING FOR 


20 REN «WRITTEN IN MBASIC 4.4 
30 REN = 21/9/81 

40 INPUT "NUMBER®:N 

SOF = 

60 FOR X= 1 TON 

TOF FRY 

BO NEXT X 

90 PRINT "FACTORIAL"sN; "=":F 

100 END 


This version ran first time. It's a lot 
easier to see the structure of the program 
too. 

There's a loop, clearly outlined by the 
FOR statement a the top, and the NEXT 
statement at the bottom. 

This is what happens: The first time the 
computer encounters the FOR statement, 
it sets the loop counter (X in this example) 
to its initial value (1 here), and then pro- 
ceeds into the loop body. When it reaches 
the NEXT statement, it tests the loop 
counter, to see if it has reached its 
terminating value (N in this example). And 
if it hasnt, it returns to the top of the loop 
and increments the loop counter. 

If the loop counter has reached its ter- 
minating value, the computer carries on 
from the bottom of the loop. 

The basic form of FOR. . .NEXT loop is 


FOR (initial condition) TO 
(terainating condition) 


(loop body) 
MEXT (loop counter) 


It is possible to specify an increment 
other than 1 (?) by using the format 


FoR (blah, blah) To (blech, blech) 
STEP (amount) 


For example, try this: 
10 REA $88 SINE CURVE PLOTTER es 
20 REN WRITTEN IN ABASIC 4.4 
30 REN 21/9/81 
40 Ww = 64 
30 H = 16 
60 FOR A = 0 TO 6.28 STEP 6.28/H 
70 PRINT TAB(W/2 + W/2 & SIN(AD); "8° 
80 NEXT A 
90 GOTO 90 


This is an example of a simple curve 
plotting program. Line 40 should be set to 
the width of your terminal, and line 50 to 
the depth. 

Line 60 is the first part of the FOR. . 
NEXT loop. It loops from 0 to 6.28, in 
steps of 6.28H, so there will be H steps. 

If you have a 16-line terminal, the loop 
increment will be 0.3925. Line 70 does the 
plotting: the TAB(n) function moves the 
Cursor n spaces across the screen, so the 
first W/2 moves it half-way across the sc- 
reen (to centre the plot). 

The remainder of the formula takes the 
sine curve, which varies from — 1 to 1, and 
multiplies it by half the screen width, to 
provide the complete TAB position. 

The PRINT statement then moves the 
Cursor, and prints the ‘*’ at the correct 
place. This is a useful trick to remember if 
you want to produce plots from calculated 
data, but don't have ‘full’ graphics capa- 
bilities. Of course, the graph comes out 
sideways, but it’s better than nothing! 

Line 90 of the program is simply a 
‘dynamic halt’ which holds the computer 
up to prevent it printing ‘QK’ and lousing 
up the pretty pattern on the screen! 


Convenience Functions 

We're now at the stage of writing some 
fairly lengthy programs, and unless you're 
an accomplished typist, you may be start- 
ing to feel the strain! Microsoft BASIC has 
a number of functions which are designed 
to make life easier for you. 


For example, it can be a bit of a strain 
remembering to enter line numbers, but 
MBASIC has a function to do that for you. 
Try typing this: 


AUTO 
REM $#% PROGRAM TO GENERATE 
& RANDOM NUMBERS #¢e 
REM WRITTEN IN MBASIC 4.4 
REM 23/9/81 

FORN= 1104 


PRINT "RANDOM NUMBER"; N° IS: “s RND(1) 


NEXT N 


Then hit the Control C key to stop the 
automatic line-numbering. If you don't 
have a control key, then you should hit 
‘BREAK’. If you don’t have a break key, 
you'd better check in the manual! 

The computer should respond with its 
usual prompt, eg ‘Ok’. | 

Now type LIST. You should see: 


10 REM $88 PROGRAN TO GENERATE 
& RANDOM NUMBERS 828 
20 REM WRITTEN IN MBASIC 4.4 
30 REM 23/9/81 
40 FOR N=1 TO 4 
SO PRINT “RANDOM NUMBER": No5" IS: “s 
RND(1) 


60 NEXT N 


The AUTO command will generate line 
numbers as required. For example, the 
command “AUTO 100,20” will generate 
line numbers starting at 100 and increas- 
ing by 20's. If AUTO comes to a line 
number which is already allocated to a 
line, it will print an asterisk after the line 


number. It carries on only if you want to 


overwrite previously existing lines, other- 
wise hit control C or BREAK. 


Now, suppose we want to add extra 
lines to our program. How do we do this 
without starting from scratch? 


Take the example of printing a random 
bar chart, rather than random numbers. 

First, we delete line 50 (simply by typing 
in 50 — it replaces the old line with no- 
thing), then we add 6 new lines: 


35 W = 64 TERMINAL WIDTH 
45.V = INT(W t RND(L)) + 1 
47 FOR T= 1 TOV 

50 PRINT "8: 

52 NEXT I 

55 PRINT 


The resulting program should look like 
this: 


10 REM &%$& PROGRAM TO GENERATE 
& RANDOM NUMBERS $38 


20 REM WRITTEN IN MBASIC 4.4 
30 REM 23/9/81 

35 W = 80 

40 FOR N=1 TO 6 

45. V = INT(W 8 RND(L)) + f 

47 FOR T= 1 T0V 

50 PRINT "8°: 

52 NEXT I 

55 PRINT 

60 NEXT W 


Try running this modified version of the 
program. There's still something wrong. 


Being Pedantic 

Pedantic as it might seem, the docu- 
mentation of a program is very important, 
and we have the title of our program 
wrong. It should say ‘Program to draw 6 
random bars’, so change tt. 


There are two ways of doing this. As 
we've already seen, we could simply re- 
type it. But this is tedious, and we could 
make mistakes. Instead, we can edit it in 
order to correct it. 


Here’s how. Type EDIT 10 and the com- 
puter will respond with the line number 
and nothing else (for the moment). 


Now we hit the space bar, and the com- 
puter will type a character at a time across 
the screen. Keep hitting the space bar 
until the computer has typed: 


10 REM $%% PROGRAM TO 


And include the space after the word 
‘TO’. Now we want to delete the word. 
‘GENERATE’, which is eight characters 
long. Type ‘8D’, and you should see: 


10 REN $%¢ PROGRAM TO \GENERATE\ 


The next step is to insert the word 
‘DRAW, by typing: 


IDRAW 


Nothing happens when you type |. But 
following characters will be put into the 
line. To terminate the insert made, use the 
ESC (escape) key. a 


In this instalment Les looks at saving 
programs, subroutines, how to han- 
die arrays, and the difference be- 
tween a command, a statement and 
a function... while Brendan Ak- 
hurst explores the possible side ef- 
fects of fancying yourself a hacker. 


PART Ill 


Deletions 


NOW WE can step over to the word NUM- 
BERS and type: 


7DIBARS<ESC? 


where <ESC> means the ESC key. 


There are other subcommands in the 
edit mode. For example, the X command 
moves the cursor to the right end of the 
line and enters insert mode, so that you 
can add onto the line. The H command will 
‘hack off’ the rest of the line to the right of 
the cursor, and enter insert mode so that 
you can retype sections of a line. 

The S command will search for a char- 
acter. If preceded by a digit n, it will search 
for the nth occurrence of the character. 
So 3SP will move the cursor to the third P 
in the line, and print all the characters 
before it. The K command kills all char- 
acters before the specified character, so: 
3KP would delete every character up until 
the third P, and wait for the next 
command. 

Several commands are provided to exit 
edit mode. Normally, pressing «* will 
print the remainder of the line and exit edit 
mode,E just will exit, and Q will scrap any 
alterations and leave edit mode with the 
Original line intact. A does the same thing 
as Q, but automatically restarts edit mode 
to give you another bite at the cherry, 
while L prints the balance of the line, and 
restarts edit mode. 

The C command allows the user to 
change the next n characters to some- 
thing else. The command 4CGOTO would 
delete the next four characters, replacing 
them with the word GOTO. Beware! The 
number of characters you insert MUST be 
the same as the number you delete, 
otherwise strange things will happen! 
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your computer 


tutorial 


Finally, to delete characters behind the 
cursor, just use the DEL key. 


Saving Programs 

Now that we can edit programs, we will 
be tackling much larger projects, and it 
would be nice if we could save our prog- 
rams on cassette or disk to save us retyp- 
ing them. 

Cassette interfaces, and the way they 
work, vary enormously from machine to 


- machine. In general, the procedure is this: 


Plug in the cassette recorder, according 
to the computer handbook, and switch it 
on. Insert a blank cassette, and move the 
tape forward past the leader and onto the 
magnetic material. If your cassette recor- 
der doesn't move, you may have to temp- 
orarily unplug the “pause” plug (usually 
the smallest). 

With all cables connected, and the 
blank tape at the right place, type CSAVE 
or, if your computer allows it, CSAVE 
‘filename’, and hit RETURN. The tape 
should start to move for a few seconds as 
the computer saves the program on tape. 
Once it has finished, rewind the tape 
ready for reloading. 


To load the program into the computer 
is a similar procedure. Move the tape to a 
point just before the start of the program, 
insert all cables, and type CLOAD or op- 
tionally CLOAD “filename”, and_ hit 
RETURN. 

The computer should now load the pro- 
gram off the tape. It may be necessary to 
experiment with the volume control when 
loading, aS most cassette interfaces are 
sensitive to the input level. 

If you type CLOAD “filename”, most 
computers will read in the next program if 
it has the right name, otherwise it will skip 
over programs until it finds the right one. If 
you put multiple programs on a tape, jot 
down readings from the tape index 
counter to mark where programs start,so 
that you can reposition the tape to the right 
place later. 

Saving programs on disk systems is 
much easier and quicker. 

Just type SAVE “filename”, and the 
computer will save the file to disk. It can 
be reloaded by typing LOAD “filename”. 

You may be able to load and run a 
program in one operation by typing RUN 
“filename”. 


Functions 

As well as the statements and 
commands we've already learnt (and 
there are more to come ), BASIC provides 
things called functions. In this section, 
we're going to learn what these functions 
do. But first, what's the difference 
between a command, a statement, and a 
function? 

A command is an instruction to the com- 
puter to do something immediately. For 
example, RUN or LIST or AUTO. 

A statement is a line of code, or part of a 
line, which the computer will store for later 
execution. When executed, it provides the 
instructions which the machine will follow. 
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It's rather like a sentence, in that it con- 
tains a verb (GOTO, INPUT, PRINT) and 
some objects which the verb acts upon, 
either variable names (X, A, Z9), con- 
stants (1, 3.14159) or line numbers (250, 
80010). 

A function acts upon some other value 
or variable to provide a new value. It is 
saidto return that value. For example, 
you might want the sine of an angle. ; 

BASIC provides a function to perform this - 250 GOSUB 1000 
calculation, thus: Y 260 6070. . 
210L = SIN(A) 

Notice that we set L equal to the value 
returned by the function.This is a good 
way to distinguish functions from state- 
ments. For example, you can’t say: 

250 L = GOTO 330 
because GOTO 330 doesn’t have a value, 


10 REN SUBROUTINE DEMO 


20 REN 


150 GOSUB 1000 
160 LET... 


v4 se 


990 END 
1000 REM %& CALCULATE AND PRINT POSITION $? 
1010 LET... 


trying to copy a program from a printer 
page. Which is easier to follow: 


10 PRINT * HAMURABI* 


that is it’s not a function. 
Here are some of the functions com- 
monly provided in BASIC: 


ABS (xX) absolute magnitude of X; if 
X ¢ 0 then ABS(X) = -X 
ASN(X) arcsine of X (rarely seen) 
ACS (X) arccosine of X {rarely seen) 
ATNIX) arctangent of X 
COS (Xx) cosine of X 
EXP (X) transcendental nuaber e raised 
to the power of X 
INP (X) input from port X 
INT (X) integer part of X 
LOG(X) comson logaritha of X 
PEEK(X) read the contents of 
mesory location X 
RND(X) random nuaber 
SIN(X) sine of X 
SOR (Xx) square root of X 
SQRT(X) same as SOR(X) (rarely seen) 
TAB(X) produces a string of X spaces 


Don't worry about what these functions 
do — that’s mathematics, not computer 
programming. If your intention is to use 
the computer to solve mathematical prob- 
lems, then | guess you know what they do 
already, otherwise you may only need the 
INP, INT, PEEK, RND and TAB func- 
tions, which aren't strictly mathematical. 
INP and PEEK will be explained later, and 
RND you've met already. 

INT returns the integer part of a 
number, so for example, INT(27.34) is 27, 
INT(3.141592654) is 3. Watch out for 
negative numbers, though — INT(3.1415- 
92654) is — 4. This is because the defini- 
tion of INT is the “largest integer less than 
the original number.” Therefore, — 3 is 
GREATER than —- 3.141592654, not less. 


TAB simply produces a string of 
Spaces. So TAB(5) prints 5 spaces, and 
TAB(15) prints 15 spaces. This is particu- 
larly useful if you're laying out printed re- 
ports. And it’s particularly useful if you're 
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or 
10 PRINT TAB(17); "HAMURABI" 


They both do the same thing, but the 
TAB function spells it out clearly. 


Programs within Programs 

Quite often, we find within a program 
that we have blocks of instructions that 
perform the same job at two or more 
points in a program. Now, computer prog- 
rammers have a phrase to describe that 
kind of situation — they call it “re- 
inventing the wheel”. After all, if there was 
a way to use the same set of instructions 
from different points within a program, that 
would make life a lot easier, with fewer 
typing mistakes and shorter programs. 

Well, there is a way to do this, and in 
programming parlance it’s called a sub- 
routine. For example, suppose we have a 
program which simulates the flight of a 
spacecraft around a planet, and that we 
want the program to calculate and print 
the height of the spacecraft both before 
and after it fires its maneouvering rockets. 

Here's one way to do it: 


fire rockets alculate and print 


call subroutine 


———— 


Calling a Subroutine 

In BASIC, there is a special keyword 
that is used to call subroutines. The state- 
ment: GOSUB lineno will transfer control 
to the given line number, until such time as 
a RETURN statement is executed, when 
normal execution resumes with the next 
statement after the GOSUB. So, in prac- 
tice, if this was a program, it would be laid 
out like this: 


ae Oe 


1080 RETURN 


Notice how the program is organised. 
The flow is quite naturally from top to bot- 
tom, and, as long as we know what the 
subroutine at line 1000 does, it makes it 
easy to follow the main program. The 
main program ENDs before the sub- 
routine, in order to avoid accidentally ex- 
ecuting it. This is not mandatory, but it is 
good programming style. 


Now let’s look at what happens when 
the computer comes to a GOSUB. It 
knows that although it is about to jump to 
another part of the program, it’s got to 
come back to this part when it’s done, so it 
remembers the line number of the next 
statement that it would normally execute. 
That’s the one it will continue with when it 
RETURNs. It sticks this onto a list of such 
line numbers called a stack, and then 
goes wherever the GOSUB commands. 

When the subroutine has done its job, 
the computer will come to a RETURN 
statement. This tells it to take the return 
address off the stack again, and go back 
to it. (By the way, the computer uses the 
stack to hold line numbers during FOR- 
NEXT loops too — can you see why”). 

The stack is an interesting kind of 
memo pad, in that the computer can stick 
as many line numbers on it as it likes, but it 
can only read them back out in reverse 
order to the way they were written. This 
means that whenever a RETURN is ex- 
ecuted, it terminates the most recently 
called subroutine, and the next RETURN 
finishes the one before that, and so on. 
We call subroutines within subroutines 
nested subroutines. 
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Arrays 

Before we start writing programs that 
use subroutines, let’s get into another 
useful BASIC structure, — arrays. 

Quite often, we find it useful to presenta 
collection of related figures in the form of a 
table. For example, we might collect 
rainfall figures over a year: 


a er a ke ce a a 


BASIC allows us to store these related 
values in one, admittedly complex, vari- 
able, called on array. Arrays are named 
like ordinary variables, except that they 
have an associated number, called a sub- 
script. So, if A is an array, the A(5) is the 
sixth entry in the array (don't forget A(0)!). 
For our rainfall chart, we could have 


The first element in the array is A(0), 
which has a value of 4, the second is A(1) 
which as a value of 3, and so on. 

Some BASICs start arrays with the 
zeroth element, whereas some start with 
the first; this is something to check up on. 
A few offer the user the option, by using a 
statement like 

OPTION BASE 0 (or OPTION BASE1) 
to let the user set it up the way he prefers. 
There’s an old joke that says if you ask 
someone to count up to 10 they'll go: 1, 2, 
3, 4, 5, 6, 7, 8, 9, 10 — except someone 
who works with computers. He'll go: zero, 
1, 2, 3, etc. 

Array variables can be used in assign- 
ment statements in exactly the same way 
as ordinary variables, so you can say: 

360 A(6) = X + B(6) 

Before you use an array in a program, if 
it will have more than 10 elements in it, 
you must inform the BASIC interpreter, so 
it can reserve space for the array. You do 
this with the DIMension statement: 

40 DIM A(32), B(32), M(64) 
which will reserve storage space for three 
arrays, two of 32 elements and one of 64. 

Arrays are particularly potent when 
used with loops. Suppose you've got an 
array of 12 values which must be input. 
This can be done by putting the input 
statement inside a loop: 


10 O18 V{12) 
20 FRR T= 1 18 12 
30 PRINT "VALUES I; 
4 TUT V1) 
50 MEXT I 
Th’ op will ask for a value 12 times 


ane —_—.e the values in succeeding ele- 
r  .softhe array V. Youcan print arrays 
a similar fashion. 


String Arrays 

it is possible to have arrays of strings (in 
Microsoft BASIC — sorry, NorthStar own- 
ers). We'll show an interesting use of 
String arrays later. Let’s look first at how 
arrays can be used and at the same time, 
we'll start to look at the use of subroutines 
— our programs are becoming big 
enough to make use of them. 


The problem we're going to solve is 
quite acommon one around computers — 
it's the kind of job they're good at. Let’s 
suppose we want to sort a sequence of 
numbers into increasing numerical order. 
There are several ways to do it; we'll use 
the Standard Exchange Sort, otherwise 
known as the Bubble Sort. 


The idea behind Bubble Sort is very 
simple. We start at the bottom of an array 
and compare the first two numbers. If the 
first is larger than the second, then we 
swap them. Otherwise, we just leave them 
as they are. We now move on to the sec- 
ond and third numbers and repeat the 
process, then the third and fourth,and so 
on. 


After we've completed this sequence 
for every pair of adjacent numbers in the 
array, we will have moved the highest 
number into the last location of the array, 
and we can now repeat the procedure, 
which will move the second highest into 
the second last location. So, to sort n num- 
bers, we have to make n-1 passes 
through the array. We can save some 
time, however, by noticing that once the 
last location is right, we don't have to com- 
pare it, and the same applies to the 
second-last, third-last and so on as we 
know they are in the right place. 


If this seems complicated, follow this 
example: 


Array at start: 

5 2 3 6 1 

First compare, and swap: 

2< 35 3 6 1 

Second compare and swap: 

2 3<5 6 1 

Third compare, no swap: 

2 3 5<—6 1 

Fourth compare and swap: (puts highest 
number in last location) 


2 3 5 1<—>6 
Start of second pass, first compare, no 
swap 


2<—3 5 1 6 
Second compare, no swap: 
2 3<— 35 1 6 
Third compare, swap: 

2 3 1<—5 6 


No need for a fourth compare, as we 
know last element is right. 


Start of third pass, first compare, no swap: 
2<-3 1 5 6 
Second compare, swap: 
2 133 5 6 


No need for a third compare, as we 
know fourth element is right. 


Fourth pass, first compare and swap: 
1<— 2 3 5 6 


No need for a second compare, as we 
know third element is right. This comp- 
letes the sorting of the array. 

Now here’s a program which does the 
same thing, based on a simple exchange 
sort algorithm: 
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100 REM 8&% SORT DEMONSTRATION Vi.0 &&8 

110 REM WRITTEN IN MBASIC 4.4 

120 REM 27/10/81 

130 DIM V(100) 

140 PRINT "SORT DEMONSTRATION" 

150 REM INPUT CONTENTS OF ARRAY. 
ENDING WITH ZERO 

160 N=! 

170 INPUT V«N) 

{80 IF VIN) = 0 THEN 216 

190 N=N+1 

200 GOTO 170 

2i0N=N- I 

220 : 

230 REM START SORTING 

240 X = 0 

200 FORT = 1 TON - f 

260 IF Vil) > Vitel) THEN GOSUB 370 

270 NEXT | 

280 IF X = 0 THEN 310 

290 GOTO 240 

300 REM PRINT RESULTS 

310 FOR f=! TON 

320 = PRINT V{Ti, 

330 NEXT I 

340 END 

390 : 

360 REM SWAP SUBROUTINE 

370 T = VT) 

380 V(T) = Vitel) 

390 V(I+i) = T 

400 X= 1 

410 RETURN 


Line 130 dimensions an array with 100 
elements, and then lines 150 to 200 allow 
us to input the members of the array. Be- 
cause we don't know in advance how 
many numbers we're going to input, we've 


oon TO BE ABLE TO CAUSE 


used an old programming trick of using an 
unusual value to terminate the input. In 
other words, the program will always ac- 
cept a zero as the last element, and jump 
to the sort routine proper. 

This sort keeps making complete pas- 
ses through the array, setting a flag (X) 
each time it makes an exchange (line 
400), and resetting it to zero at the begin- 
ning of a pass (line 240). If the flag is zero 
at the end of a pass (line 280) then there 
were no swaps in that pass, and the array 
must be in order. 

Lines 310 to 340 simply print out the 
array. Notice the comma in line 320, at the 
end of the print statement. This is a varia- 
tion on the semicolon we've been so care- 
ful about, and its effect is to print the re- 
sults in fields, each 14 characters wide. 
This is very useful for producing tables of 
ouput. 

Notice also our use of the GOSUB to 
line 370. This enables us to put our series 
of instructions which perform the swap 
tidily out of the way at the end of the 
program. 

Now, remembering what we said earlier 
about not having to complete a pass be- 
cause we knew the larger values were 
already in their correct places at the end of 
the array, let's rewrite the sort, and tidy it 
up: 


100 REM a2 SORT DEMONSTRATION Vi.t e898 

110 REN WRITTEN IN MBASIC 4,4 

120 REM 27/10/81 

130 DIM ¥(100) 

140 PRINT “SORT DEMONSTRATION" 

150 REM INPUT CONTENTS OF ARRAY, 
ENDING WITH ZERO 

160 N=1 

170 INPUT ViN) 

180 IF V(N) = 0 THEN 210 


A MILLION SMALL reve 


IMPULSES TO tTunction 
ACCORDING To Nay. ven. wr 


Command... 


a 


yA 


190 N=N+1 

200 GOTO 170 

TION=N- 1 

220 : 

730 REM START SORTING 

240 FOR P = 1 TO N-1 

250 FOR I = { TQ N-P 

266 IF Vil) > Viti) THEN 
SWAP V(T) ,V(T+i) 

270) =NEXT I 

280 NEXT P 


300 REM PRINT RESULTS 
310 FOR I=1 TON 

320) PRINT VT), 

330 NEXT I 

340 END 


Several things combine to make this a 
neater program. Firstly, the algorithm is 
expressed more neatly, using a counter P 
(line 240) to control the number of passes 
through the array, while the | counter still 
indexes through the array. Secondly, | 
only runs up as far as N- P, stopping 
short of the end of the array, because, as 
we've pointed out, there is no need to go 
that far. Thirdly, we've replaced the swap 
subroutine with Microsoft BASIC’s SWAP 
statement — okay, we admit it! We were 
holding out on you all along! 

Here’s some work for you to do. Type in 
both the sort programs into your computer 
and run them both with the following data: 


4131211109 8765 4321 9 
3 45 6 7 8 9 {0 th 12 13 14 15 6 
5 4 35 6 7 8 9 16 11 12 13 15 146 
Which is faster, and why? Under what 
circumstances Is each faster? [ 


K commands |. 
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According to Les, all the interesting 

things you can do with computers 

involve strings. Here he cuts them to 

the right lengths and wraps up your 

original sort program. As the cartoon 

characters conclude, ‘‘He’s a man 
to be admired.”’ 


PART IV 


FROM NOW on, we're going to concen- 
trate much more on strings, because all 
the interesting things you can do with 
computers involve strings. Just think of 
the applications for a computer in the of- 
fice: word processing, accounting, main- 
taining production schedules, sorting lists 
of names and addresses. .. 

Now just a moment. Let's see if we can 
sort strings the same way we sorted num- 
bers. Go back to V1.1 of our sort program 
and see what has to be changed. Our 
array, V(100), should obviously be an ar- 
ray of strings, called V$(100). Apart from 
that, everything should be okay. Or will it? 

There are a couple of things that will 
need changing. First, the name of the 
program should be changed, and the 
date. Next, our method of detecting the 
end of input should be changed. Instead 
of detecting a zero as the end, let’s 
change it to an empty line (two double 
quotes with nothing between them). Go 
ahead and do that; your result should look 
like this: 


100 REM $0 NAME SORT V1.0 889 
110 REM WRITTEN IN MBASIC 4.4 
120 REM 2O/11/81 


130 DIM V$(100) 

140 PRINT "NAME SORT DEMO" 

150 REM INPUT CONTENTS OF ARRAY, 
ENDING WITH A BLANK LINE 

140 N=! 

170 INPUT V$(N) 

180 IF V$(N) = "" THEN 210 

190 N=N+$ 

200 GOTO 170 

219N=N- 4 

220 : 


230 REM START SORTING 


your computer 


tutorial 


240 FOR P = 1 TO N-I 

250 FOR I = { TO N-P 

260 IF V${I) > VSCI+1) THEN 
SWAP V$(I) ,VS(I+4) 

270 NEXT I 

280 NEXT P 

300 REM PRINT RESULTS 

310 FOR I=1 TON 

320 PRINT VS{I), 

330 NEXT J 

340 END 


Try it out. It'll work okay, as long as you 
don't put in more than about 15 names. 
Then, all of a sudden, you'll get an ’Out of 
String Space in 170’ or ’OS’ error code. 
What's gone wrong? 

Microsoft BASIC allocates a certain 
amount of memory space to string stor- 
age. In this case, we've used it all up. To 
get more, we must add a CLEAR state- 
ment to our program: 


125 CLEAR 1000 


_ This will set aside 1000 bytes (or 
characters) of storage for our string array 
— enough for 100 names, at an average 
10 characters each. 

Notice our comparison in line 260 still 
works, as does the SWAP instruction (if 
you don't have the SWAP instruction, use 
a GOSUB to a modified swapping sub- 
routine). We can expand this still further. 
Here's the beginnings of a mailing list 
program for a computer club: 


100 REM H40 MAIL LIST Vi. aus 
110 REM WRITTEN IN MBASIC 4.4 
129 REM 2o/11/84 


130 CLEAR 5000 


140 DIM NS(100), ALS(100), AZSi100), POLO) 


150 PRINT "MAILING LIST" 

160 REM INPUT NAMES AND ADDRESSES, 
ENDING WITH A BLANK LINE 

170 N=1 

1BG INPUT "NANE o"SNSiN} 

190 IF NS(N} = "" THEN 266 

200 INPUT "ADDRI =o: "sAig$in) 

210 INPUT "ADDR2 =: ";A2$iN} 

220 INPUT "POSTCODE: ";PC(N) 

230 PRINT 

240 N=N+{ 

290 5070 189 

260 N=N- I 

270 3 

280 REM START SORTING 

299 FOR FP = 1 TQ N-1 

SQG FOR T = { TO N-P 

210) TF NS(T) > NS(T+1) THEN GOSUB 446 

S200 NEXT I 

S30 NEXT P 

S40 REM PRINT RESULTS 
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350 FOR J=1 TON 

360 PRINT N${7} 

370 = PRINT A1$(7) 
380) = PRINT AZ2${T);PC{T) 
390 PRINT 

400 NEXT | 

410 END 

420; 

430 REM SWAP SUBROUTINE 
44) T$ = N${T) 

A5Q N$(T} = NG(I+E) 
460 N${I+1) = T$ 

470 T$ = ALSTT) 

480 ALS{T) = AL$(I+!) 
490 AIG(I+1) = T$ 

00 T# = AZS(T) 

510 A2G(1T) = A2$tT+1) 
sed AZ$(I+1) = T$ 
sod 7 = PC(Y) 

540 PC{I) = PC{I+]) 
god PC(I+h) = T 

360 RETURN 


In this version of the program, | haven't 
used the SWAP statement, as it’s not av- 
ailable on TRS-80s and some other small 
computers. This program prompts the 
user for names and addresses, and once 
the operator has entered all the data he 
just hits RETURN when the NAME: 
prompt appears. The program then sorts 
the names and addresses and outputs 
them in alphabetic order. 

Note that names should be entered 
surname first and initials last, without any 
commas, as BASIC will think you are try- 
ing to enter two variables with a comma 
between them. 


Improving the Product 

There are several things we can do to 
make our sort program better. Some are 
dependent on the features of BASIC and 
some are just straight computer science 
tricks that will work on any computer in 
any language. 

The first thing to notice is we’re spend- 
ing a lot of time and energy swapping 
things around in that subroutine at the 
end. First, we swap the names over, then 
the first lines of the addresses, then the 
second line of the address and then, fi- 
nally, the postcode. Allof this takes time — 
swapping strings is particularly slow. 
And just think how much slower it will be- 
come if we start adding extra information, 
like what kind of computer our club 
member owns, when his membership ex- 
pires, and so on. 

There's a better method. We create an 
array which contains pointers to the en- 
tries in our data arrays, and we call this 
array an index. | 

Let’s see how this works. Initially, our 
index contains just the integers from 1 to 


100 in ascending order. When we com- 
pare two names in the data arrays and find 
they're out of order, instead of swapping 
them, we swap the corresponding entries 
in the index array. This is a lot quicker. 
Each entry in the index tells us the posi- 
tion of the corresponding entry in the data 
array. 


An Index, of A Sort 

Of course, our data array is still in the 
same order as when we started — only 
the index has changed. So we can’t just 
print it out. Instead, we must look each 
name up in the index in order to find its 
position in the data array. Here’s how it 
looks: 


BEFORE AFTER 
index array data index array data 
1 9 4 9 
2 a 3 7 
5 4 2 4 
4 3 1 3 


Before sorting, each entry in the index is 
in order, and the nth entry in the index 
corresponds to the nth entry in the data 
array. After sorting, the first entry in the 
index corresponds to the lowest valued 
entry in the data array, which is probably 
not the first. 

This enables us to do away with that 
clumsy swapping subroutine from line 370 
onwards, with a huge saving in time. 

Second, many of the numbers we’re 
dealing with are whole numbers; that is, 
they don’t have any significant digits after 
the decimal point. Such numbers are cal- 
led integers, and BASIC can treat them as 
a special case, with a consequent in- 
crease in speed and decrease in storage 
requirements. 

To refer to a value as an integer, just 
add a % sign to the variable name. By 
going through our program and renaming 
loop counters like | and N to I% and N%, 
we can further speed up the program. 

We should also note the entries in our 
index array are integers, so it should be an 
integer array, with a big space saving. 

Finally, the sort algorithm (set of rules) 
we used is none too efficient itself. The 
bubble sort moves the high numbers to 
the right end quite quickly. But if low num- 
bers are far out of place, it takes a long 
time to move them down. For this reason, 
the bubble sort is slow. 


Shellsort Bursts the Bubble 
In the next version of the program, I've 
replaced the bubble sort with a much fas- 


ter sort: the Shellsort (D A Shell, A high- 
speed sorting procedure, Communica- 
tions of the Association for Computing 
Machinery No 2, 1959; pp30-32). 

The Shellsort is much faster. There are 
three parts to any sorting program (exc- 
luding the input and output subsections of 
course) — the comparison, the swapping 
method, and the algorithm itself. 

In this case, we've changed the swap- 
ping method first of all (I tested an indexed 
version of the program with the old bubble 
sort first), then the algorithm. At each 
stage, the program still worked and could 
be tested. This is called stepwise refine- 
ment, and it is a keystone of structured 
programming. 

Here’s the souped-up version of the 
program: 

100 REM $88 SUPER NAIL LIST Vi.0 332 

110 REM WRITTEN IN MBASIC 4.4 

120 REM 26/11/81 

130 CLEAR 5000 

140 DIM TAZ(100), N${(100), AL$(100), 
A2$(100), PCZ(100) 

150 PRINT TAB(22);"MAILING LIST’:sPRINT 

160 REM INPUT NAMES AND ADDRESSES, 
ENDING WITH A BLANK LINE 

170 NZ=1 

180 ITAZ(NZ)=NZ 

190 INPUT "NAME :"sNS(NZ) 

200 IF NS{NZ) = "" THEN 270 

210 INPUT “ADDR1  :";ALS$(NZ) 

220 INPUT "ADDR2 :"sA2${NZ) 

230 INPUT “POSTCODE: ";PCZ(NZ) 

240 PRINT 

250 NZ=NX+1 

260 60T0 180 

270 NZ = NZ - 1 


280 : 


290 REM START SORTING 

300 FOR IZ=1 TO NZ STEP 1% 

S10 MZ =2e 12-1 

320 NEXT If 

330 KZ = NZ - MZ 

340 FOR JZ = 1 TO KZ 

350 FOR 12 = JZ TO 1 STEP -MZ 

360 IF NS(TAZ(IZ)) > NOCTAZ(TZ+1)) 
THEN SWAP TAZ(IZ) , JAA(IX+1) 

370 NEXT 12 

380 NEXT JZ 

390 MZ = AZ / 2 

400 IF MZ <> 0 THEN 330 

410 REM PRINT RESULTS 

420 FOR Iz=1 TO NZ 

430 PRINT NS(IAZ(IZ)) 

440) = PRINT AIS(TAZ(TZ)) 

450 = PRINT A2S(IAZ(IZ)) sPCZ(TAZ(IZ)) 

460 PRINT 

470 NEXT 12 

480 END 


PART V 


WE ALREADY know how to save and 
load programs. But our programs are go- 
ing to be dealing with larger and larger 
quantities of data, and it's a good idea to 
have some way of storing that data on 
tape or disk so we can dispense with all 
this typing. This brings us to the concept of 
data files. 

Data files are the same as the filing 
cabinets in every office, except they re 
more efficiently organised (| define a filing 
system as ‘a system for losing things in 
alphabetical order ). 

The computer likes to know ahead of 
time what kind of information is going to be 
where. It doesnt know the difference bet- 
ween aname and an address, so if you tell 
it every fourth string will be a name, the 
two strings after it are address lines, and 
the final piece of data is a post code. 
youd better keep your promise to the 
computer and organise the file that way. 

Here s a few terms of data file parlance. 
A complete collection of related informa- 
tion, such as a name, address and post- 
code, is called a record. Within the record 
each Item of information such as name. 
address line 1, address line 2 and post- 
code, !s called a field. 

On some computers. and in certain 
circumstances, each record must be the 
same length and the fields are of pre- 
defined length too. That may seem like a 
lot of bother. but it does confer certain 
advantages as we ll see. In the meantime. 
we re going to start with the lazy mans 
type of data files. called sequential files. 

In sequential files, the computer doesn't 
care now long your fields and records are: 
it just reads them one after another, and 
the beginning of every field comes right 
after the end of the preceding one. 

Heres how it works imaqine you 
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Watch the birdie! This chapter finds 

Les looking at ways to file away (and 

retrieve) data. The resulting program 

is a useful mailing list utility, so if 

nothing else you can treat it as a 

Pocket Program and lift it for your 
Own use. 


your computer 


cutoriail 


wanted to make an entry in a conventional 
paper file (actually, computer data files 
are ‘conventional paper is passe). How 
would you do it? 

You d first of all work out where the file 
should be in the filing cabinet and locate it. 
Then youd pull it out and open it. Then 
you read through the file quickly until you 
found the end, and then you'd make your 
entry. Finally, you would close your file 
and replace it ready for the next occasion. 


Yes, The Same Way 

You use exactly the same technique to 
access a sequential data file. First, you 
locate the file. Okay, so there aren't any 
alphabetical tabs on a floppy disk. But it’s 
the operating system's job to keep track of 
what files are where, so you can rely on it 
to do that part of the job. Next, you open it 
with the command OPEN 
“| 1. filename’. 

The OPEN statement requests the 
operating system to locate this file and 
keep tabs on it while you rummage 
through the contents. It also signals 
BASIC to set up a ‘file pointer’, which ini- 
tially points to the beginning of the file. but 


will move through it as you read or write 
the file. 

The ‘Il’ part indicates that you are open- 
ing this file for input; you're going to be 
reading from it. An ‘O’ would mean you 
were going to output to the file. Sequential 
files can be open for input or output, but 
not both. 

This raises a minor problem. Opening a 
file for output sets the file pointer to the 
beginning of the file, so anything you write 
onto the file will just overwrite the previous 
contents. And you can't switch from read- 
ing to writing, thus eliminating the possibil- 
ity of reading through until the end and 
then appending the new information (al- 
though CBASIC-2 allows this). So how 
can you append on to a file? 

The answer is to read from the original 
file, and output a copy of this to a new file. 
After the first file has been read, you can 
forget about it and write your appended 
data onto the new copy of the file. So far 
so good. Let's get back to that OPEN 
statement. 

Different BASICs allow varying num- 
bers of files to be open at one time, typi- 
cally up to 15. At sign-on, TRS-80 Disk 
BASIC for example asks you how many 
files you will be using. If you don't answer, 
it assumes a maximum of three. 

Each file is allocated a number, when 
we open it. In this case, we ve said our file 
will be file number 1. Finally, the last part 
of the OPEN statement is the filename 
itself, which can be either a string constant 
ora string variable. 

Thinking time. Write OPEN statements 
to do the following: 

1. Open file DEALER.DAT as file 
number 3 for input. 

2. Open file RAINFALL.FIG for output, 
as file number 2. 
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3. Open file SALEFIGS.DAT for input, 
as file number 1. 

4. Our program has already asked for 
the filename and stored it in variable F$. 
Open the file for input, as file 1. 


Dear Files, I’m Writing. .. 

Writing to files is as easy as writing to 
the screen. Having assigned a file number 
to each open file, we now use a modifica- 
tion of the PRINT statement to write into it. 

PRINT#1,A,B,C for example, will print 
the values of A, B and C into the file (in the 
usual 14-character wide fields). The state- 
ment PRINT #1,A“,”B",”C will print the 
three numbers, separated by commas, 
which is the best format to use if the num- 
bers are to be read by a subsequent (you 
guessed it) INPUT#1 statement. 

Obviously TRS-80 owners cannot use 
the PRINT@ statement to print to a file, 
because a file is only one-dimensional. It’s 
a Strip of characters, in sequence (hence 
sequential file). It consists purely of the 
data we write to it, with added spaces 
inside fields in cases where we separate 
printed values with commas. 

It is possible to use PRINT #n USING to 
print to a data file though, as it simply 
formats the output for neatness. There are 
occasions where this could be useful. 

Once the last data item has been writ- 
ten to a file, it is closed. This means the 
operating system writes out the last data 
to the disk, and updates the file’s directory 
entry to reflect its new length. This is done 
using the CLOSE n statement, where n is 
the number of the file to be closed. Here’s 
a simple example of this process: 


Thinking time again. Write code to write 
20 names and addresses onto a disk file 
called NAD.DAT. 


430 OPEN *0",1, "NAD. DAT 

440 FOR N=1 TO 20 

450 PRINT#1,NSIN):", "sALS(N) 3", °s 
A2S(N) 2", "sPCZ(N) 

460 NEXT N 

470 CLOSE 1 


Now write code to read them off again. 


720 OPEN "1",1,"NAD.DAT® 

730 FOR N=1 TO 20 

740 INPUT#I,NSINDS", "SALSIND 5", "3 
A2$(N)s", "sPCZIN) 

750 NEXT N 

760 CLOSE ! 


An answer is given at the end of the 
article, but the ultimate test is, of course, 
whether your computer will do it. 


Now, To End The File 

The examples tackled above work fine 
as long as you know in advance how 
many records you will be reading. But 
what happens if you don’t know how long 
a file is, but just keep looping around, 
reading it? The answer is that as soon as 
you've read the last item of data in a file, 
the next time you try to read from it you will 
get an error message, and your program 
will stop. Not good. 

BASIC gets around this problem by pro- 
viding a flag called EOF, which stands for 
End Of File. This is automatically set to 


specify the name of the file we are working 
on and to exit back to the operating 
system. In particular, | have applied one 
restriction to this program to make it more 
useful in the ‘commercial’ environment. It 
is to be compatible with MicroPro’s 
MailMerge utility, part of the WordStar 
word processing package. 

We'll start with the overall system de- 
sign, using a technique known as 
flowcharting. The chart shows the over- 
all operation of the program and relates 
the various routines. The routines each 
perform one of the basic functions refer- 
red to above. Each is a separate func- 
tional block in the main program. 

The program starts, as usual, with its 
name and historical information, followed 
by the declarations which reserve string 
space and dimension the arrays. 


100 REM 44% SEQUENTIAL FILE 
MAILING LIST MANAGER 48% 
110 REM 44% COMPATIBLE WITH 
MICROPRO MAILNERGE 8% 
120 REM WRITTEN IN MBASIC 4.4 
130 REM 1/12/81 
140; 
150 CLEAR 10000 
160 DIM TAZ(100), NS(100), CH(100), 
Ai${100), A2${100), PCZ(100) 


This is all pretty straightforward; there's 
nothing new for us here. Next, we start the 
program by printing its name on the sc- 
reen and asking for the name of the file to 
work on. 


170 PRINT CHRS(12); TAR(2?2 
> PRINT: PRINT 
18C PRINT: INPUT “FILE TO WORK ON":FS$ 


270 OPEN "0", 1, "pen file for output true when you read the last data item in a yy "MAILING LIST" 


° : file. Now we can include a test for the EOF 
DATAFILE. DAT flag in our read loop, and everything will 


280 FOR N=1 TO 20 "Loop 20 tises he fine: 199 
‘ { +.8 8, 3 : 
fli RDG acy SURRUG ETE Yar aaete 370 OPEN "I",1,"NAD. DAT" None of this is very startling, either. 


510 CLOSE i 


"Close the file 


This segment of code writes the 20 val- 
ues of A(1) through A(20) out to the disk, 
separated by commas. 

The CLOSE statement can close more 
than one file at a time, simply by specify- 
ing the file numbers separated by com- 
mas. If no numbers are given, the CLOSE 
statement will close all open files. 


Reading A Sequential File 

Now we have the 20 variables stored in 
a disk file, we will want to read them back. 
How is this done? It’s exactly the same as 
writing, except the file is opened for input, 
and we use the INPUT #n statement. So: 
130 OPEN "I", i, 

"DATAFILE. DAT" 

140 FOR N=1 TO 20 
130 INPUT#,A(N) 
160 NEXT N 
170 CLOSE ! 
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*Set up loop 
"Input variable 


"Close file 


"Open file for input 


380 N= 

390 IF EOF(1) THEN 440 

400 INPUTH1, NSN) ALS(N) ,A2$(N) , PCZ(N) 
41 NEN 

420 GOTO 390 

430 REM CONTINUE PROCESSING 

440 CLOSE 1 


If we were inputting from file 2, then we 
would test for EOF(2). For file 5 it would be 
EOF(5), and so on. 

The Mailing List Program 

With all this in mind, it is now time for us 
to complete our mailing list program. In 
particular, we will need to add several 
functions to our basic sort utility. We have 


to be able to: 
1. Addnames to the file. 


2. Delete names from the file. 

3. Sort the file into either alphabetic or- 
der or postcode order. 
List the file to the screen. 
Print labels from the file. 

Additional functions might be used to 


ols 


CHRS$(12) is the character that clears the 
screen on my terminal. TRS-80 owners 
will want to replace the CHR$(12) with 
CLS. 


Could We See The Menu? 

Having cleared the screen and input the 
name of the file we're going to work on, we 
are now ready to offer the user a choice of 
things to do. We'll do this by presenting a 
menu of options. Here is the code: 


200 REM 43% DISPLAY MENU &39 
210: 

220 PRINT CHR${12)3;°1 - Add Names" 
230 PRINT "2 - Delete Naaes® 

240 PRINT "3 - Sort File" 

230 PRINT "4 - List File to CON:” 
260 PRINT "S - Print Labels” 

2/0 PRINT "& - Change Work File" 

280 PRINT "7 - Quit and Return to CP/M" 
290 PRINT: INPUT "Enter Choice";C 
300 IF C¢i OR C37 THEN 220 


MAILER.BAS FLOWCHART 


ADD 
NAMES 


DELETE 
NAMES 


310 ON C GOTO 380, 1040, 490, 1740, 
1480, 170,340 
320 : 


Again, the screen is cleared, then a list 
of seven options is displayed. Line 300 
re-presents the list if the user types in an 
answer outside the expected range. Line 
310 is our first use of the ON...GOTO 
statement. This uses the value in the 
specified variable (in this case C) to select 
one arm of a multi-way branch. If C is 1, 
control is passed to the first line number of 
the list, if it is 2 we jump to the second, and 
so on. 

The easiest subroutine is going to be 
number 7. Here it is: 


300 REM EXIT MBASIC 
340 SYSTEM 
490 3 


TRS-80 owners would probably re- 
dlace the SYSTEM statement with END. 


START 


INITIALISE 


ARRAYS 


ASK NAME 
OF FILE 
(FS) 


PRINT MENU 
& SELECT 
OPTION 


PRINT 
LABELS 


POSTCODE 
SORT 


The next subroutine to be tackled is the 
one that adds names and addresses to 
the file. 

Remember our earlier discussion of 
how it is impossible to read and write from 
the same sequential file. In this case, | 
have chosen to keep the original file but 
rename it from ‘filename.DAT’ to 
‘filename.BAK’. This way, the user can 
recover from any serious errors by simply 
erasing the new version of the file and 
renaming the .BAK version to the correct 
name. 

Here is the routine: 


360 REM S3ROUTINE TO ADD NAMES TO FILES 


3/0: 


380 PRINT CHR$(12);"Add Nages to File °; 


F$: FOR N=! TO 300: NEXT N 
390 T1=1:G0SUR 1250: 1%=1%-1:60SUR 1340 
400 IF EOF(1) THEN 440 
410 INPUT #1,N$,C$,A1$,A2$,PC 


LIST FILE 


EXIT TO 


TO CON: SYSTEM 


FINISH 


420 PRINT #2,NS3", "3083", "A1$;", "5 
AzSe SPC 
430 60TC 400 
440 FOR NZ=1 70 [2 
450 PRINT #2,NS(NZ)3", "3CSINZ)S", 3 
ALS(NL) s", "sA2S(NL) =", "SPCR (NE) 
450 NEXT NZ 
470 CLOSE 1,2:60T0 220 
480 : 
You will notice this routine uses two 
Subroutines. Here its the first of these: 


1230 REM &&% SUBROUTINE TO BUILD ARRAY 
OF NAMES AND ADDRESSES 4&8 

1240 : 

1250 N$(IZ)=""sPRINT CHR$(12):PRINT: 
PRINT: INPUT "Name >"SNS(IZ) 

1260 IF N${JZ} = "" THEN RETURN 

1270 INPUT "First name: ";C$(12) 

1280 INPUT "Addr i 2"sAL$(12) 
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1290 INPUT “Addr? 
1300 INPUT "Postcode 
iso 8 = A +1 
1320 GOTO i250 
1330 5 
I% is set by the calling program to be 1. 
This subroutine simply loops around, tn- 
putting a surname, given name, address 
lines and postcode. Whenever no name is 
input, it returns to the calling program. 
Here is the subroutine which renames 
the original file to .BAK and opens the 
files: 


1340 REM 4% SURROUTINE TO RENAME AND 
CREATE BACKUP FILE &8% 


SAIS (TI) 
SPOTTED) 


{god : 

1340 RS=LEFTS(FS, LEN(F$)-3) 4" BAK" 
1370 ON ERROR GOTO 1430 

1380 KILL R$ 

1390 NAME FS AS R$ 

1400 OPEN "I", 1,R$ 

1410 QPEN "0",2,F$ 

1420 RETURN 

1430 IF ERR = S53 THEN RESUME NEXT 
1440 PRINT "Strange Error in "s;ERL:STOP 
1450 : 


Line 1360 uses the LEFTS function to 
‘grab all but the right-most three 
characters of FS (the filename) and then 
sticks .BAK on the end. In line 1380 there 
is a possibility of an error occurring: it 
doesn't really bother us if there isn't an 
existing .BAK’ file, as we are going to 
KILL (or erase) it anyway. 

Nonetheless, MBASIC will report a ‘File 
Does Not Exist error and drop us out of 
our program. We get around this by line 
1370, which directs MBASIC to jump to 
line 1430 if it finds an error. 

Once there, if the error is coded number 
53 (‘File Does Not Exist’), then we just 
ignore it and resume execution with the 
next statement (that is, line 1390). 
Otherwise, we print an error message, in- 
cluding the line where the error was 
found. 

Normal execution opens the two files in 
exactly the way we ve learned. 


Arrays Are The Key 

Now the operation of the main ‘Add 
Names routine will become alittle clearer. 
It works by building up an array of names 
and addresses in memory. This is done by 
the first subroutine. Once that is complete, 
it renames the input and output files and 
opens them. It then copies the input file 
across to the output file and outputs the 
contents of the array on to the end. Finally, 
both files are closed. It's that simple. 

Next, we ll tackle the sort routines. First, 
we print a little menu to let the user decide 
which sort of sort he/she wants: 
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490 REM 2% SORT SUB-SYSTEM &&% 
g00 : 


3iQ PRINT CHR$(12);"Sort Sub-systea" 


S20 PRINT:PRINT:PRINT "1 - Sort on Name” 


530 PRINT "2 ~ Sort on Postcode’ 
340 PRINT: INPUT "Enter Choice";C 


Having decided that, we then read in 
the file: 
300 GOSUB 1360 
360 NZ=! 
u70 IF EQF{S) THEN CLOSE 1: 
380 JAZ(NZ)=NZ 
390 INPUT #1, NS(NZ) COINZ) ,AIS(NZ), 
A2$(NZ) ,PCZINZ) 
600 NZ=Niti 
610 6070 370 
620 NZ = NZ - 1: PRINT: PRINT: PRINT 
Nis"Kecords Read": PRINT 
Now the file is in memory, we jump to 
the appropriate sort routine: 
630 ON C GOTO 670,910 DECIDE WHICH 
SORT TO USE 


GOTO 620 


640 : 
Here is the sort on Surname: 


650 REM 99% SHELL SORT ON NAME £93 
640 3: 
670 FOR [z= 
680 Mi = 
690 NEXT 1% 
700 KE = NZ - ME 
{GQ FOR JZ = 4 7 
7200 FOR TZ = J 
730 TF NS{TA 
THEN SWAP 
740 NEXT IZ 
750 NEXT JZ 
760 ME = MZ f 2 
770 TF MZ ¢? 0 THEN 700 
780: 


TO NE STEP if 
12-4 


{ 
4 
5 
é 


I 


0 
i 
miLA)) > NSCIARUTE+I)) 


a 

TG { STEP -Mz 
Th) 

TALUS) TAA(IAt1) 


As you can see, this is exactly the same 
sort routine we used before. And having 
completed the sort, we write the file back 
to the output file: 


790 REM 449 WRITE QUTFUT FILE a9% 
Bd0 : 
810 FOR [%=1 TO NZ 

20 PRINT #2, NSCTAX(IZ))3","s 
B3G PRINT 42, COCIAZ(TH))s", "3 
O40) PRINT 42, ALS{TAZ(T2)):","s 
830 = PRINT $2, AZS(TAL(T2)) 37," 

POR(IAL{TY)} 
850 NEXT 1% 
870 PRINT It-i;"Records Written’: 
CLOSE 2 :6079 2 20 

g80 ; 


This is very straightforward. For those 


who appreciate small subtle differences, 
here's the postcode sort: 

890 REM 8% SHELL SORT ON POSTCODE 83% 
900 : 

910 FOR [Z=1 TO NZ STEP IZ 

920 MZ = 2812-1 

930 NEXT 1% 


940 KZ = NX - ME 
950 FOR JZ = 1 TQ K? 
960 FOR 1% = JZ TO 1 STEP -MA 


970 IF POUCTAZ(IZ)) > PCRUTAX(IZ+1)) 
THEN SWAP IAZ(1Z), TAZ(IZ+1) 

980 NEXT If 

990 NEXT JZ 

1000 MK = NZ / 2 

1010 IF MZ <> 0 THEN 940 

1020 GOTO 810 

1030 : 

As you see, the two sorts are remark- 
ably similar. 

The next routine to be tackled is the one 
which deletes names from the file. The 
approach | have chosen here is to 
minimise file accessing by deleting up to a 
hundred names in one go. Here’s the 
routine: 

1040 REM t&4 ROUTINE TO ERASE NAMES i4% 

1950: 

160 PRINT CHRS(12):PRINT TAB(24): 
"Delete Names":FOR N = 1 TG SOQ:NEXT N 

1070 PRINT CHR$(1?} | 

1080 [2=1:60SUB $250: 1Z=12-1:605UB 1340 

1090 IF EDF(1) THEN 1140 

1100 INPUT#I,NS$,C$,A1$,A2$, PCY 

110 FOR Nf= 1 TO IZ 

112G) so TF ONS(NZ) = NS AND PCRINZ) = PCY 

THEN 1189 

113G NEXT NZ 

1140 PRINT #2,.NG:", "3 Ces", "Ales": 
ADs PCY 

150 GOT 1099 

1160 CLOSE 1,2 

i174 6070 226 

1i9G PRINT CHRS(12): "Match found: ":PRINT 

119G PRINT N$:PRINT CS:PRINT Als: 
PRINT A2$:", "sPCZ:PRINT 

i200 INPUT "Delete (Y/N}": 
= "Y¥" OR LEFTS(A$,d}="y" THEN 1990 

i210 GOTO 1136 

1220: 

The routine starts off the same way as 
the ‘Add Names’ routine, by building an 
array of names and addresses and open- 


ing the input and output files. Then the two 
diverge. 


Finding A Match 
As each record is input from the input 
file (line 1100), it is compared with each 


sASSIF LEFTS(A$, 1) 


BASIC FOR 
BIRDWATCHERS 


name and postcode in the array (lines 
1110-1130). If they match the program 
jumps to line 1180; otherwise the record is 
just written out to the output file. Finally, 
the files are closed and we are returned to 
the main menu. 

If amatch is found, the record is printed 
(line 1190) and the user asked if the re- 
cord is to be deleted. If it is, execution 
continues with the reading of the next re- 
cord. If not, then it is output in the normal 
way. 

The most important function of a mail- 
ing list program is to print labels which are 
then used to address envelopes. Here's 
the routine to do that: 


1460 REM #% SUBROUTINE TQ PRINT LABELS %8 


1470: 
{480 PRINT CHR$(12):PRINTsPRINT: 


PRINT TAB(30)s"Now printing labels.” 


1490 GPEN *I*,1,F$ 

1500 IF EOF(1) THEN 1520 

1510 NX=1sINPUT#L NS(1) COU1) ,AIS{1), 
A2$(1),PCZ{1) 

1520 IF EOF{ i) THEN 1540 

1530 NZ=2: INPUT#! ,NS(2),C$(2) ALS(2}, 
A2$(2) ,PCL{2) 

1540 IF EGF(i) THEN 1540 

1550 NZ=3: INPUT#L NS (3) ,.CS(3) AIS(3), 
A2$(3), PCL(3) 

1560 LPRINT TAB(4);:FOR [%=1 TO NZ 

1570 LPRINT C${17); 

1580) IF C8¢I%)<>"" THEN PRINT” °; 

1590 LPRINT N&(12)s TAB(12826+4): 

1600 NEXT IX:LPRINT 

1610 LPRINT TAB(4)s:FOR [Z=1 TO NZ 

1620 LPRINT AIS(IZ) s TAB(IZE26+4): 

1630 NEXT I%:LPRINT 

1640 LPRINT TAB(4):sFOR [Z=1 TO NZ 

1650 LPRINT A2S(IZ)s","sPCZ(IZ); 

TAB(IZ826+4) s 

1660 NEXT IZ:LPRINT:LPRINT:LPRINT 

1670 IF EQF({) THEN 1490 

1680 GOTO 1500 

1690 CLOSE {:LPRINT CHR$(12) 

1700 GOTO 220 

1710: 

This job isn’t as easy as it looks on first 
thought. The trick is to read in three re- 
cords at atime, then print the three names 
across the page, followed by the three first 
address lines and so on. However, if the 
end of file is reached with only one or two 
records to be printed across the page, this 


complicates matters. 
In this routine, | used N°o to count the 


number of records that are read in each 
‘pass’ and this then controls the 
FOR..NEXT loops that print across the 
page. 

Apart from that there’s nothing comp- 
licated about this routine. It just needs 
slow, careful reading to make its operation 
evident. In line 1690, the CHR$(12) is a 
form feed character, causing the printer to 
page eject. 

Finally, a similar routine is needed to list 
the file to the console. In this routine | took 
a slightly different approach: 


1720 REM %# SUBROUTINE TO LIST TO CON: 43 


1730 : 
1740 PRINT CHR$(12):PRINT:PRINT: 
PRINT TAB(30)3"File Listing:" 
1750 WIDTH 80 
1760 OPEN "I",1,F$ 
1770 IF EOF(1} THEN 1790 
1780 NZ=1:INPUTHL,NS(1) ,C8C1) ,A1S(1), 
AP$(1) PCE (1) 
1790 IF EDE(1) THEN NS{2)="":C$(2i="": 


AL$(2)="":A2$(2)=""sPCL(2)=0:60TO 1810 


1800 NZ=2: INPUTS! NS (2) ,C8(2) ,A18(2), 
A2$(2) ,PCL(2) 
1810 IF EDE(1) THEN NS(3)="":C$(3)="": 


ALS(S)=""sA2S(S)=""sPC%(3)=0:G0T8 1830 


1820 NZ=Zs INPUTH!,NS(3) ,C9(3},ALS(3), 
A2${3) ,PCL(3) 

{930 PRINT C$(1); 

1940 IF C$(1)¢2"" THEN PRINT " "3 

1850 PRINT N$(1):TAB(26):€$(2): 

1860 IF C$(2)¢3"" THEN PRINT * "3 

1870 PRINT N$(2):TAB(52) 20943): 

1880 IF C#(3)¢>"" THEN PRINT " "3 

1890 PRINT NS(3) 

1900 PRINT A1S(1):TAB(26) :A1$(2}3 
TAB(52) sAL$(3) 

1910 PRINT A2${2}3", "sPCZ(1):TAR(24) 
sA2$(2); 


rg 
4 
A283) 2", "PCy 


1930 PEINT:PRINT 


1940 IF EGF(1) THEN 1940 

1950 5070 1770 

1960 CLOSE {:WIDTH 72: INPUT "Hit return 
to continue" ;A$ 

1970 GOTO 220 

1980 END 


This routine is considerably simpler 
than the label printer, and you should 
have no trouble following it. 

Finally, to make it easier to key into your 
own computer, here is the complete 
program: 


{00 REM 44% SEQUENTIAL FILE 
MAILING LIST MANASER 44% 
110 REM 49% COMPATIBLE WITH 
MICROPRO MAILMERGE 4% 
120 REM WRITTEN IN MBASIC 4.4 
130 REM 1/12/91 
140; 


150 CLEAR 10000 

160 DIM TAZ(IOG!, NE{100), CH100), 
AL${190), AZ${100), PCLI190) 

170 PRINT CHRE€({2)s TAB(22)s "MAILING 
LIST":PRINT 

180 PRINT: PRINT: INPUT "FILE TQ WORK 
ON" SFS$ 

1970: 

200 REM 

710: 

220 PRINT CHR€(12):"i - Add Nases” 

230 PRINT °2 - Delete Names" 

240 PRINT "3 - Sort File’ 

ZoQ PRINT "4 - List File to CON:" 

260 PRINT "5 - Print Labels" 

270 PRINT "& - Change Work File’ 

280 PRINT "7 - Quit and Return to CP/M 

290 PRINT: INPUT "Enter Choice’sC 

200 IF (<i OR C37 THEN 220 

Sid ON C GOTO 380, 1060, 490, 1740, 1490, 
170, 240 

320 3: 

3a0 REM EXIT MBASIC 

340 SYSTEM 


TE 
agi : 


433 DISPLAY MENU O88 


360 REM 4 ROUTINE TO ADD NAMES TO FILE of 


370 3 
S80 PRINT CHR$(12);"Add Names to 

File "3F$: FOR N=! TO 300: NEXT N 
590 [Z=1:G0SUR (250: T2=1%-1:605UB 1249 
400 IF EOF{{) THEN 440 
41Q INPUT #1,N$, C$, AL$,A2$,PC 
420 PRINT $2,N$;", "C83", "AL$3", "3 


A2$:", "sPC 


430 SOTO 400 
440 FOR NU=t TO 14 
450 PRINT #2,NS{NZ)3","sCS(NZIs", 's 
ALS(NE) s", "SADS(NZ) ©", "2 PCL (NT) 
460 NEXT NY 
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470 CLOSE 1,2:60TO 220 

480: 

490 REM 

300 : 

310 PRINT CHR$(12)}:"Sort Sub-systea’ 

s20 PRINT:PRINT:PRINT “1 - Sort on Nage" 

330 PRINT "2 - Sort on Postcode” 

040 PRINT: INPUT “Enter Choice’sC 

330 GOSUB 1360 

w60 Nia! 

5/0 IF EOF(1) 

380 TAZ(NZ)=NZ 

S90 INPUT #1, NS(NZ),CS(NZ) ALSINZ), 
A2$ (NZ) PCL(NZ) 

600 NZ=NZ+1 

610 GOTO 570 

620 NZ = NX - 1: PRINT: PRINT: PRINT 
Ni;"Records Read": PRINT 

630 ON C GOTO 470,910 


$43 SORT SUB-SYSTEM 8% 


THEN CLOSE 1: GOTO 620 


640 : 

650 REM &&% SHELL SORT ON NAME &33 
660 : 

670 FOR 12=1 TO NZ STEP I% 

680 MZ=2 9 12 - 1 

690 NEXT IZ | 


700 KZ = NA - ME 
710 FOR JZ = 1 TO Ki 
720 «FOR 14 = J£ TO 1 STEP -NZ 
730 TF NS(TAZ(IZ)) > NSCTAZ(TZ+1)) 
THEN SWAP TAX{IZ) TAX(IZ+1) 
740 NEXT I2 
750 NEXT JZ 
760 MZ = NA / 2 
770 IF ME <> 0 THEN 700 
780 : 
790 REN 
800 : 
SiG FOR [%=1 TO Nz 
B20 = PRINT #2, NS{IAZ(IZ))3","3 
830 = PRINT #2, COCTAZ(TZ)):",°3 
B40 = PRINT #2, ALS(IAZ(ILD) 3", "s 
850 PRINT 1, AZS(TAZ(TE)) 3", "3 
PCZ(IAZ(IZ)) 
860 NEXT 17 
870 PRINT I%-1;"Records Written": 
CLOSE 2:G070 220 
880 : 
890 REM &#% SHELL SORT ON POSTCODE s48 
700 : 
910 FOR [f=! 
920 ME = 2 
930 NEXT I 
940 KX = NZ - ME 
990 FOR JZ = 1 TO Kz 
960) «6 FOR 1d = Jk TO i STEP -MZ 
970 TF PCACIAL(IZ)) > PCRCIAZ(TH+1)) 
THEN SWAP TAZ{I2) ,TAZ(I2+1) 
NEXT Ii 


$42 WRITE QUIPUT FILE sae 


TO NZ STEP I 
ti - i 


980 
24 


4280 INPUT "Addr i 


990 NEXT Jz 

1000 MZ = MZ / 2 

1010 IF MZ <> 0 THEN 940 

1020 60TO 810 

1030 : 

1040 REM $44 ROUTINE TO ERASE NAMES 442 

1050: 

1060 PRINT CHRS(12):PRINT TAB{24); 

"Delete Names":FOR N = 1 TO 300:NEXT N 

1070 PRINT CHR$(12) 

1080 12=1:G05UB 1250: 1%=17-1:G0SUB 1340 

1090 IF EOF(1) THEN 1160 

1100 INPUT#1,N$,C$,A1$,A2$,PC% 

1110 FOR NZ= 1 10 1% 

1120) so TF NS(NZ) = NS AND PCZINZ) = PCE 

THEN 1180 

L130 NEXT Ni 

1140 PRINT #2,.NG:", °sCSs","sAlSs","s 
A2$s","sPCz 

150 GOTO 1090 

1160 CLOSE 1,2 

1170 GOTO 2? 

1180 PRINT CHR$(12)3"Natch found: ":PRINT 

1190 PRINT N$:PRINT C$:PRINT A1$: PRINT 
A2$s*, *sPCLPRINT 


1200 INPUT "Delete (Y/N) *:AS:IF LEFTS(A$, 1) 


="¥" OR LEFTS{(A$,1)="y" THEN 1090 

1210 GOTO 1130 

1220 : 

1230 REM %#% SUBROUTINE TO BUILD ARRAY 

OF NAMES AND ADDRESSES $83 

1240 : 

1250 NS(IZ)="":PRINT CHR$(12):PRINT: 
PRINT: INPUT "Name "ENS (IZ) 

1260 IF N$(IZ) = °" THEN RETURN 

1270 INPUT "First name:"3C${(I%) 

s"sAL$(IZ) 

r"sA2$ (12) 

PyPCA (TE) 


1290 INPUT "Addr? 
1300 INPUT "Postcode 
1310 12 = 1% +1 


.. ANTHOW, READ 


ree IT ALL OUT... AND.. pai 
VG 


tr A \ 
\ Wout as \\ 
Aaa 


riesesatl RICAN wl ry 


1320 60TG 1250 


1330 ; 

1340 REP 44% SUBROUTINE 10 RENAME 
AND CREATE BACKUP FILE s&s 

1350: 


1360 RS=LEFTS(FS,LEN (FS) -3) +" BAK" 

1370 GN ERROR GOTO 1430 

1380 KILL R$ 

1390 NAME FS AS R$ 

1400 OPEN "I", 3,R$ 

1410 OPEN °0’,2,F$ 

1420 RETURN 

1430 IF ERR = 53 THEN RESUME NEXT 

1440 PRINT "Strange Error in "sERL:STOP 

1450 : 

1460 REM && SUBROUTINE TQ PRINT LABELS 4% 

1470: 

1480 PRINT CHR$(12):PRINT:PRINT: 
PRINT TAB(3G);"Now printing labels." 

1490 OPEN "I", 1,F$ 

1500 IF EQF(1) THEN 1520 

1310 NA=LeINPUT#S NSC1) CHC1) ALS(L), 
A2$ (1), PCZ(1) 

1520 IF EQF(1) THEN 1540 

1330 NZ=2: INPUT#S ,NS(2),C$(2) ,A1$(2), 

A2${2),PC%(2) 

1340 IF EGF(1) THEN 1560 

1330 Nd=3: INPUT#! ,NS(3) ,CH(3) AI$(3), 
A2$(3) , PCL (3) 

1560 LPRINT TAB{4);:FOR IZ=1 TO NZ 

1570 LPRINT C$(12); 

1580) oF C${7Z)<>°" THEN PRINT" "s 

1590 = LPRINT N&(I2)sTAB(IZ€26+4); 

1600 NEXT IZ:LPRINT 

1610 LPRINT TAB(4)3:FOR I2=1 TO NY 

1620 LPRINT ALS(1Z) 3 TAB(I2$26+4); 

1630 NEXT Td:LPRINT 

1640 LPRINT TAB(4);sFOR IZ=1 TO Ni 

1650 =LPRINT A2$(1%)3","sPCZ(I2): 

TAB(IL82644) s 
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1660 NEXT I%:LPRINT:LPRINT:LPRINT 
1670 IF EOF(1) THEN 1690 
1680 GOTO 1500 
1690 CLOSE 1:LPRINT CHR$(12) 
1700 GOTO 220 
1710 : 
1720 REM #% SUBROUTINE TG LIST TO CON: %# 
1730 : 
1740 PRINT CHR$(12):PRINT:PRINT: 
PRINT TAB(30}3 "File Listing: 
1750 WIDTH 80 
1760 OPEN "I",1,F$ 
1770 IF EQF(1) THEN 1790 
1780 NA=L:INPUTH NS(L) CHUL) AIS{), 
A2$(1) PCA(L) 
1790 TF EQF(1) THEN NS(2)=""sC$(2)="": 
ALS(2)=""SA28(2)=""3PC%(2)=0:G0TO 1810 
1800 NZ=2: INPUTHE NS(2) ,C$(2) ,AI${2), 
A2$ (2), PCZ(2) 
1810 IF EQFY1) THEN NS{3)=""sC$(3)="": 
ALS(S)="7sA2S(3)=""sPCK(3)=0:G0TO 1830 
1820 NZ=3: INPUT#1,N${3) ,CH{3) ,AL${3), 
A2$ {3} ,PCZ{3) 
1830 PRINT C$(1); 
1840 IF C$(i}e>"" THEN PRINT ° "s 
1B50 PRINT N$(1}3TAB(26)5C$(2)s 
1860 IF C$(2)<>"" THEN PRINT * ": 
1970 PRINT N${2);TAB(S2);0$(3); 
1880 IF C$i3)<>"" THEN PRINT ” ": 
1890 PRINT N&(3) 


1900 PRINT AL$(1)s TABI26) sA1$(2); 
TAB(S2) 3 A1${(3) 

1940 PRINT A2S(1)3°,"sPCH(L)s TABI24); 
A2${2)3 

1920 PRINT ","sPCH(2)sTABI(S2) 5 
A2S(3)3", "3 PCLE3) 

1930 PRINT: PRINT 

1940 IF EQF(1) THEN 1940 

1950 GOTO $779 

1960 CLOSE i:WIDTH 72: INPUT "Hit return 
to continue"; A$ 

1970 GOTO 22 

1980 END 


The structure of the complete program 
reflects some of the weaknesses of the 
BASIC language. In particular, the two 
subroutines at lines 1250 and 1360 are in 
the middle of the program. 


For absolute speed (not important 
here) they should be near the beginning of 
the program, while for logical structure 
they should be near the end. However, 
once they have line numbers they can't be 
moved and new modules (in this case the 
label printer and ‘list to console’ module) 
have to be tacked on after them. 


That completes our first major project. 
Now well move on to something new. 
[| 


Notes 


Well, after that tour de force of list- 
ings (did you make it through the last 
Chapter?) Les continues his tutorial 
saga with a snappy little piece about 
random access files... 


PART VI 


WE'VE NOW seen how sequential files 
can be used to store information and how 
the computer can sort information into 
order. | 

These concepts are very important in 
organising information on a computer, 
particularly for rapid access later. But you 
have probably spotted the drawbacks of 
sequential files. First, we have to load the 
entire file into memory to sort it, and sec- 
ond, the only way to find a particular re- 
cord is to sequentially search through the 
file until it’s located. 

Random access files will help us to get 
around these problems. The solution to 
the second problem is implicit: instead of 
sequentially searching a file, we can ran- 
domly access any part of it. Our earlier 
use of an index will help us with the first 
objection: instead of loading the entire file 
into memory and sorting it, why not have 
an index file which says where in the main 
file each record is stored, and then sort the 
index? 

Of course there is a penalty for random 
access. We must always use the same 
length of record, and we must be alittle bit 
more pernickety in defining our field 
lengths. But that’s a small price to pay. 

With the solution to our problems in 
sight, let’s press on and learn about ran- 
dom access files. 

A random access file is opened for both 
reading and writing, using our old friend 
the OPEN statement: 
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170 OPEN “R”, 1, “FILENAME.DAT” 


Now from here on in it’s not going to be 
that easy, I’m afraid! To use random ac- 
cess files you must understand a little ab- 
out how BASIC accesses the disk and 
how the operating system organises the 
disk. 


Keeping Track Of Floppy 

For convenience | will use the IBM 
standard single-density 20 cm floppy disk 
as our example, but the basic principles 
apply to all disks, whatever their size. 
Each disk has 77 tracks. These are con- 
centric rings where the read/write head 
actually puts the data. Each track is split 
up into 26 sectors, each containing 128 


bytes of data. Now we can access any 
block of data, provided we know which 
track and sector it’s in. 

A special area of the disk is usually set 
aside for the directory. This tells the 
operating system where each file starts 
and how long it is. 

In random access files, each read or 
write (GET or PUT statement) transfers 
an entire sector of 128 bytes. (If your 
machine uses 256-byte sectors, don't 
worry, the operating system automatically 
deblocks a 256-byte physical sector into 
two 128-byte logical sectors). 

The sector is read off the disk into a 
buffer space maintained by BASIC, and 
which you should have already set up us- 
ing a FIELD statement. 

All data in a random access file is 
treated as string data. Thus any numbers 
in the file have to be converted into num- 
eric data before being used in calcula- 
tions. BASIC contains special functions to 
do this. Conversely, numbers must be 
converted into strings before being written 
to random files. 

When storing strings into an I/O buffer, 
you must use the special functions LSET 
and RSET. This is because the fields are 
fixed in length and these functions auto- 
matically cope with strings that are too 
short or too long. 


How Many Files, Sir? 
Most BASICs allow 15 or so files to be 
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open at one time. TRS-80 disk BASIC 
asks the user, at power-up, how many 
files he will be using, because each file 
has to have an associated buffer in mem- 
ory: if you're not using the buffer, it’s just 
so much wasted space. Not many prog- 
rams would have as many as 15 files open 
at once. 

The OPEN statement sets up a 128- 
byte buffer for that particular file. The next 
thing you must do is say what information 
goes where inside that buffer. You should 
decide this during the early stages of de- 
signing your program, by writing a record 
definition. 

Here’s a typical record definition for a 
name/address/telephone number file: 
Surname 20 bytes (characters) 
Christian names 20 bytes 
Street address 30 bytes 
Town/city 20 bytes 
Postcode 4bytes 
Telephone 15 bytes 
Comments 19 bytes 
Total length 128 bytes 

If you like, you can visualise the buffer 
as a strip of memory containing the vari- 
ous strings which will represent the diffe- 
rent fields of the record: 
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Using the same string variable names 
as the mailing list program, here’s a 
FIELD statement to set up the buffer this 
way: 


190 FIELD #1,20 AS NS, 20 AS C$, 30 AS 
Al$, 20 AS A2$, 4 AS PC$, 15 AS TS, 
19 AS CHS 


This statement ‘slices up’ the buffer for 
file 1 so the appropriate number of 
characters is allocated for each string 
variable. 

Note: we have now reserved these str- 
ing variables for a special usage and we 
Cannot use them in the ordinary ways we 
use other string variables. For that 
reason, it is generally wise to use special 
names for disk-buffer variables, so the 
ubiquitous N$ is used in the program gen- 
erally, while NF$ is the file buffer variable 
(FN$ cannot be used, as we'll see later). 

So it might be better to write: 


190 FIELD #1,20 AS NF$, 20 AS CF$, 30 AS 
AFS, 20 AS BFS, 4 AS PFS, 15 AS TFS, 


19 AS DFS 


Although these string names are not as 
meaningful as the others, they are less 


COMMENTS 


likely to be used accidentally as conven- 
tional variables. 

Okay, so how do we read from a ran- 
dom file? Having opened the file and 
FIELDed it, here’s how to read the 37th 
record: 


330 GET #1,37 


That will read the record into the buffer. 
You can now PRINT NF$, and the name 
should appear on the screen. Likewise 
PRINT TF$ should print the phone 
number. 

All of this assumes there is 37th record 
of course. If you don’t have many friends 
you may not have a record number 37. In 
that case, what you get back will either be 
garbage, or possibly an error message. 

One of the most convenient features of 
a random file is not every record need 
contain any information. In fact, there can 
be thumping great gaps in your file. Again, 
if you access a non-existent record, you'll 
generally get back garbage. 

The disadvantage of this arrangement 
is non-existent records still take up space. 
If you create a random file, and then insert 
record number 1 followed by record 
number 1017, the file will occupy 1017 by 
128 bytes — totalling 127 Kbytes — even 
though the space between records 1 and 


oy 


1017 is logically empty. Be aware of this 
problem! 


So You’re Mismatched, Eh? 

How do you know where the end of a 
random file is? The answer is random files 
don't really have a length — they just end 
somewhere after the last record. Conse- 
quently, the EOF() function doesn’t work 
on random files; trying to take the EOF() of 
a random file will usually return a ‘File 
Mismatch Error’. 

To help with applications where you 
want to read right through a file, MBASIC 
provides a function, LOF(n), which returns 
the number of records in random file n. So 
you can write: 


140 FOR W=1 TO LOF(2) 
150 GET #2,N 
160 REM DO PROCESSING 


270 NEXT N 


This will read through the file and pro- 
cess the contents of every record. Don't 
be surprised if many of them turn out to be 
garbage! 

Numeric values are not quite as easy to 
handle as strings, however. In fact in ran- 
dom files, numeric values must be stored 
in a compressed string format. They are 
converted using the MKI$, MKS$ and 
MKDS$ functions. 

When using FIELD to set up a buffer, 
you must be sure to allow for the correct 
number of bytes (characters) for the data 
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Integer : string MKI$ 2 bytes 
Single-precision: — string MKS$ 4 bytes BE AUT 
Double-precision: string MKD$ 8 bytes \ A = 


When reading numeric variables back 
from a random file, they must be con- IP WIP “ 
verted back into numeric form. Once 
again, MBASIC provides special func- . J 5/ 
tions to accomplish this: ae 4 


String : integer CVI > 
String : single-precision CVS 74 cll Oo 
String : double-precision CVD 


Those are the basic principles of hand- 
ing random files, for simple cases at least. 
With this information we will proceed 
to a couple of more realistic examples: y 
a computerised telephone directory D 


and a small database management 
system. C] 
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I'LL BEGIN this month by temporarily di- 
verting your attention from disk files to the 
point where the whole process starts — 
with the information being input — and 
show you how inputting can be made nea- 
ter and more professional. 

To do this we're going to tackle screen 
handling and user-definable functions. 

The BASICs in some machines include 
simple screen-handling functions, in the 
form of the CLS and PRINT@ statements, 
So certain parts of this information will not 
apply to users of TRS-80, System 80 and 
similar systems. However, some of the 
other techniques may prove useful. 

inputting data to a computer is like filling 
in a form -~ the whole process can be 
made far more comfortable if the screen is 
organised to look just like a form. To do 
this with a standard ‘dumb’ computer 
terminal we must output special control 
codes or escape sequences to the termi- 
nal. These codes command it to perform 
such functions as clear screen, position 
cursor, and soon. 

Different terminals have different sequ- 
ences of control codes for their functions; 
that’s why a program like WordStar, which 
makes extensive use of terminal func- 
tions, usually comes with an INSTALL 
program. INSTALL sets up the ap- 
propriate codes in the program to make it 
work on a particular terminal. You can do 
something similar in your programs by 
setting up the appropriate codes in string 
variables and functions at the beginning 
of a program. 

For example, the Lear-Siegler ADM-3A 
terminal will clear its screen if you send a 
CHR3$(26). In the case of a Televideo TVI 
910, the appropriate character sequence 
is CHR$(27) followed by CHR§(26). For 
an ADDS Regent terminal, itis CHR$(12). 
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Times Getting Tougher Than... 

Okay, imagine someone gives you a 
program written for the ADDS with PRINT 
CHR$(12) statements all the way through 
it, and you own a TVI 910. 

You're in luck if you have a text editor 
with global search and replace function: 
otherwise, you'll have to go through and 
find every occurence of PRINT CHR$(12) 
and change it to PRINT CHRS$(27);CHR$- 
(26). You'll also have to watch out for 
LPRINT CHR$(12) statements — they 
send form feeds to the printer... 

Life was meant to be easier than this, 
wasn‘ it? 

Surely it would have been better if your 
friend had written at the beginning of the 
program: 


10 CLS$ = CHRS$(12) 


and then used PRINT CLS$ all the way 
through. All you would have to do to be in 
business is change line 10 to: 


10 CLS$ = CHR$(27) + CHR$(26) 
As a bonus this even works faster, 
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though you're unlikely to notice the 
difference. 

You can use a similar technique to send 
cursor home, up, down, left and right com- 
mands to any terminal. For example, for 
the TVI 910: 


10 HAS = CHRS$(30) 

20 CLS$ = CHRS{27) + CHRS{(26) 
20 UPS = CHRS(11) 

40 DNS = CHRS$(19) 

00 LE$ = CHRS$(8) 

69 RT$ = CHRS{12) 


Now we're starting to get somewhere! 
But how about more complex jobs, like 
moving the cursor to a particular row and 
column? For the ADM-3A this means 
sending an escape character, CHR$(27), 
followed by an equals sign, then the row 
number plus an offset of 31 (as a binary 
number), then the column in the same 
fashion. 

How do we treat this case? 

That's where user-definable func- 
tions come in. In Microsoft BASIC and 
CBASIC-2 you can define your own func- 
tions by using the DEF FN statement. For 
example, we can define a function which 
converts Centigrade to Fahrenheit. The 
formula is F = 1.8 by C + 32 (we used it 
earlier in a simple program). 

To define a function called FNF(C) we 
write: 


70 DEF FNF{C) = 1.88 + 32 


In this case, the function is really called 
F, or FNF (function F) in full. The 
bracketed C is a dummy variable. It 
bears no relation to the variable C which 
may be used elsewhere in a program. It 
simply means the number appearing in 
brackets when the function is called 
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should be used as the dummy variable C 
in the calculation. 


Use Of The Dummy 
To show the use of this simple function 
in a program, here’s an example: 


10 DEF FNF(C) = $.8 & C + 32 

20 INPUT "Centigrade"; X 

30 PRINT “equals";FNF{X); "Fahrenheit" 
40 END 


Note the function must be defined be- 
fore it is used, and that although in the 
definition C is used as the dummy vari- 
able, when itis called will operate on what- 
ever variable is passed to it. 

Now in this example the function re- 
turned a real number. However, functions 
can return other data types too — and 
function names follow the same rules as 
variable names. So an integer function 
could be defined and named FNDO%(X), 
or a string function named FNHS$(A$). 

To return to our problem of PRINTing 
the escape sequence which positions the 
cursor, here’s a possible solution: 


10 DEF FNGXYS(X, Y)=CHR$(27)+"=" 
+CHRS(¥+31) +CHRS(X451) 


Here we've defined a function GXY$ 
(gotoXY) which is to be passed two 
dummy variables X and Y. It then con- 
structs a string consisting of ESCape, =, 
Y plus offset, X plus offset. On an ADM- 
3A, then, the line 


240 PRINT FNGXY$(40,12)3 


will position the cursor near the centre of 
the screen. 

Different functions will be required for 
other terminals; on a Hazeltine terminal 
you would use this function: 


10 DEF FNGXY${X,¥) = CHRS(27)+CHRS(17) 
+CHRS(X+31) +CHRS(Y +31) 


On the ADDS Regent, it would be 


10 DEF FNGXYS${X,¥) = CHRS(27)+"Y" 
+CHRS$ (¥ +53) +CHRS (X+63) 


This technique can be used to produce 
rudimentary computer graphics on serial 
terminals. Try this short program — after 
modifying it for your terminal, of course: 


100 DEF FNGXY$(X,¥)=CHR$(27)+"=" 
+CHRS(¥+31) +CHRS(X431) 

110 CLSS=CHRS (27) +CHR$ (24) 

120 AS$ = CHRS(27)+ CHR${72) 

130 PRINT ASS 

140 PRINT CLS$ 

150 FOR X=1 10 80 
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160 FOR Y=1 TO 24 

170 PRINT FNGXYS(X,¥)5°8"s 
180 = NEXT Y 

190 NEXT X 

200 PRINT AS$ 


The AS$ is a string to turn auto-scrolling 
on and off on the TV! 910. Without it the 
terminal will automatically scroll up 
periodically, spoiling the display. 


Weill It’s Round-ish, Sir 
To display a circle (of sorts) try this: 


100 DEF FNGXY${(X,¥)=CHR$(27)+*=" 
+CHR$ {¥+31) +CHRS(X+31) 

110 CLS$=CHRS$ (27) +CHR$ (26) 

120 AS$ = CHR$(27)+ CHR${72) 

130 PRINT AS$ 

140 PRINT CLS$ 

150 FOR ¥ = -10 TO 10 


160 YC1 = 12+ SOR (100 x * 2) 
165 YC2= 12 SOR(100 _ Xx * 2) 
170 XC = 40 ¢ Y 


180 PRINT FNGXY${XC, C1); "9"; 
FNBXYS(XC, YC2) 3 "4" 

190 NEXT ¥ 

200 PRINT ASS 

210 PRINT FNGXY$(1, 1) s:LIST 


Many terminals have other functions. 
On the TVI 910, for example, the strings 
‘ESC )’ and ‘ESC (’ turn half-intensity on 
and off. So we can define a function to 
print a string in half intensity: 


0 DEF FNHT$ (A$) =CHR$(27) +") "+A$ 
+CHR$ (27) +" (" 


To print a string of underlines: 


40 DEF FNLNS(L)=STRINGS(L, 95) 


Here the STRINGS function is used to 
generate a string of length L, composed of 
underlines (CHR$(95)). To print a string, 
but underlined (on the TVI 910): 


U0 DEF FNULS (A$) =CHRS(27)+"GB" +A$ 
+CHR$ (27) +"60° 


Take a look through the manual for your 
terminal; you will find many functions that 
can be controlled this way. It’s possible to 
lock and unlock the keyboard, turn a 
printer on and off, make characters blink 
or inverse video, and so on. 

The most important use of these func- 
tions is in the creation of forms for input 
and formatted output. In the case of our 
telephone directory, we are dealing with 
fixed length records, which cannot be ex- 
ceeded. It would be handy to know how 
much space is available for aname before 
we start filling it in. We can do this by 
printing up a blank form with underlines 
indicating the space available for data 
entry. 

To take us out this month, here’s an 
example of a short routine which could 
be used in our telephone directory 
program. 


10 DEF FNGXY$ (X,Y) =CHR$(27)+"="+CHRS(¥+31) 
+CHR$(X+31) 
12 DEF FNHT$(A$)=CHR$(27) +") "+A$ 
+CHR$(27)+"{" 
13 DEF FNLNS{L)=STRINGS(L, 95) 
14 HOMES=CHRS$ (30) 
15 CLO$=CHR$ (27) +CHR$ (24) 
17 PRINT CLS$ 
20 PRINT FNGXY$(1,3) sFNHT$("Surname Has! 
FNLNS$ (20) 
30 PRINT FNHT$("First Nage 
40 PRINT FNHT$("Street > ")sFNLNS(30) 
30 PRINT FNHTS$i"Town/City oo: “)sFNLN$(20) 
60 PRINT FNHT${"Postcode > ")sFNLNS (4) 
70 PRINT FNHT$("Telephone : ");FNLNS(15) 
73 PRINT FNHT$("Comment > ")sFNLNS(19) 
9) PRINT FNGXY$(13,3)s: INPUT NS 
90 PRINT FNGXYS$(13,3)3": "sNG: 
SPACE$ (20-LEN(N$) ) 
100 PRINT FNGXY$(13,4)s: INPUT C$ 
110 PRINT FNGXY$(13,4}3": "sC$; 
SPACES (20-LEN{C$) } 
120 PRINT FNGXY$(13,5)s: INPUT AlS$ 
130 PRINT FNGXY$(13,5)3"s “sAL$; 
SPACES (30-LEN(AI$) } 
140 PRINT FNGXY$(13,5)5: INPUT A2$ 
120 PRINT FNGXYS$(13,)3": "SA2$; 
SPACE$ (20-LEN(A2$) ) 
160 PRINT FNGXY$(33,7);: INPUT PCZ 
170 PRINT FNGKY$(13,7)3" :"5PC2; SPACES (14) 
180 PRINT FNGXY$(13,8)s: INPUT TELS 
190 PRINT FNGXY$(13,9)3": “sTEL$: 
SPACE$ (1S-LEN(TEL$}) 
200 PRINT FNGXY$(13,9)s: INPUT CT$ 
210 PRINT FNGXY$(3,9)3"s "sCT$s 
SPACES {19-LEN(CT$)) z= 


>"); FNLNS(20) 


